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Q 4 1.0 ABM MAC T 

'IS 



* i. 



SEG 000*, 



9* 

q; THE. DRVll-J IS A GENERAL PURPOSE. PARALLEL INTERFACE EQR THE 

^ i SI 11 BUS. IT HAS A BASIC CONFIGURATION OF" 64 TRI STA1E IN/OUT 

^ I TNES DIVIDED INTO FOUR GROUPS OR PORTS OF 16 BIT WORDS. 

:uu 

*°i TMtRt ARt TWO 4K DIAGNOSTICS FOR THE DRV11-J OPTION. 

102 THF ORVllJ DIAGNOSTIC TF3T PART 1 OF 2 CONTAINS A 

105 SERIES OF TESTS WITHOUT DRV11J INTERRUPTS DESIGNED TO TEST ALL 

104 LOGIC FUNCTIONS ANO DATA PATHS MADE ACCESSIBLE WITH THE. LQOPBAC^ 

105 CABLE INSERTED INTO THE DRVll-J I/O CONNECTORS. 
106 

10" THF DRV 11 J DIAGNOSTIC PART 2 OF 2 IS A SERIES OF TESTS 

108 WIT H DRV11J INTERRUPTS DESIGNED TO TEST ALL LOGIC AND DATA PATHS 

109 MADE ACCESSIBLE WITH THE LOOPBACK CABLE INSERTED INTO THE I/O 

110 CONNECTORS. 



U^ THE DRVll J IS CONTAINED ON A DOUBLE MtlCHT MODULE. 

11* !*£. MOOULE CONTAINS TWO 50 PIN CCN ZCTORS FOR INTERFACING 

II 4 TO EXTERNAL USER DEVICES. 

115 

11* FOR DIAGNOSTIC TESTING, THE DRVll-J CABLEC BC05W-02 ) MUST 

11* BE INSTALLED WITH 1/2 i'WIST BETUuEN THE 50 PIN CONNECTORS. 
1 18 

H q ♦***♦***♦♦♦♦*♦♦.♦♦**»*♦*♦»♦*♦♦♦»♦♦♦♦♦♦♦•*♦♦***♦* *** 6 *******^***. ******** 

H? * i:GPA • 

1^1 * NO T E ; THIS DIAGNOSTIC HAS BEEN MODIHEO TO RUN IN KXT11 (SBC 11/21) ♦ 

1^ * BASLO SYSTEMS. THE PROGRAM WILL AUTOMATICALLY ADJUST ITSELF TO RUN * 

^23 ♦ in THE APPROPRIATE ENVIRONMENT AS FOLLOWS: * 

124 * 

J25 ♦ LSI 11. 11/2, AND 11/23 SBC 11/21 

lrh * . - , . - * 

}H * CSR RANGE: 160010 TO 177760 174000 TO 177 760 * 

128 ♦ PROGRAMMABLE ... * 

}£* * ...VECTOR RANGE; 0000 TO W74 000 TO 374 ♦ 

J;V * ;;GPA * 

J -J * ****♦**♦♦*•***«*.**** + ************* + *♦*♦*** + ***** + + * + *** * **** + *♦***♦***** 

154 2>0 REQUIREMENTS 

1 36 ' " 

1? ? 2.1 EQUIPMENT 



* 



138 

1J2 1« PDPll/03.U/2^ COMPUTER OR ISI-11 PROCESSOR 

140 W [TH A MINIMUM Of 4K MEMORY, 

141 

J*5 2, SERIAL I INE INTERFACE AM* C;>*oOLc SfcRMlNAL 

143 

144 5§ DRVll-J OPTION WITH A BCCr-iJ-OL* CAtiLC 

,f ? 2,2 STORAGE 

J ' / 

>* iM THE PROGRAM USES THE LOWER 4K OF MEMORr, 



i 
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4.0 



».«'/>* STANDARD PROCEDURE FOR P[)P U ABSODFf- 
BINAHt FORMATTED PAPER i APES OR XXDP MfDIA 
U IilS WITH .BIC OP .BIN EXTENSIONS ONI. O . 



STARTING PROCEDURE 



1. MAKE SURE THE DRV 11 
ON THE I/O 
THIS WILL CONNECT 



CONNECTOR;, 



J CABLE IS INSERTED WITH 1/2 A TWIST 
S OF THE DRVll-J OPTION. 
PORT A TO PORT C AND PORT B TO PORT D. 



r>.o 



MAKE SURE THE DEVICE BUS ADDRESSES AGREE WITH THE DEFALK.. T 
VALUES DEFINED IN SECTION 7.1. IF NOT, CHANGE 
LOCATIONCS) AS DESIRED VIA THE 'ADDRESS/' ODT COMMAND. 

THE PROGRAM SHOU.D ALWAYS BE STARTED AT 200. STARTING 
AT 200(200G OR .R CVDRCC UNOER XXDP O, THE PROGRAM 
INITIALIZES ITSELF, PRINTS ITS IDCFIRST 1 IME ONLY) AND 
THEN PRINTS THAT THE DRVU-J CABLE IS REQUIRED( FIRST TIME 
ONLY! AND THEN PRINTS: SWR-XXXXXX NEW- 

WHERE XXXXXX REPRESENTS THE CURRENT VAUJE OF THE SOFTWARE 

SWITCH REGISTER. IF NO CHANGES ARE REQUIRED IN THE SWITCH 

REGISTER THEN JUST HIT CARRIAGE RETURN. 

IF CHANGES ARE REQUIRED, THEN A NEW VALUE MAY BE TYPED 

FOLLOWED BY A CARRIAGE RETURN. 

REFER TO SECTION 5.0 FOR SWITCH REGISTER OPTIONS. 

IF THE FOLLOWING ERROR OCCURS RIGHT AFTER STARTUP IT IS 
POSSIBLE THAT THE DRVUJ LOOPBACK CABLE MAY NOT BE INSTALLED 
OR WAS NOT INSTALLED PROPERLY: 

REG READ/WRITE ER 

ERRPC TSTNUM BUSADR EXPCT RCVD 

002224 000002 *16416C 100700 000700 

♦BUSADR MAY BE DIFFERENT DEPENOING ON THE CSR OF THE DRVUJ. 

SOFTWARE SWITCH REGISTER 



4. 



OPTIONS 

THE PROGRAM SWITCH DEFAULT MODE IS SWR - OOOOOO 

I' USING A VIDEJJ TERMINAL .BIT 15 • KHALT ON ERROR) 

MAY BE HELPFUL IN KEEPING THE &RROR ON THE SCREEN. 



SWITCH 


OCTAL 


FUNCTION 


SW1S-1 


100000 


HALT ON ERROR 


SW14-] 


040000 


LOOP ON TEST 


SW13-1 


020000 


INHIBIT ERROR TYPEQUTS 


SWU-i 


004000 


INHIBIT ITERATIONS 


SW09-1 


001000 


I OOP ON ERROR 


swoe*i 


00Q4XX 


LUQP QN TEST IN SWR <7-0> 
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208 'j (( > CONTROl 

210 t, THf SOFTWARE SWITCH REG1STLR ' SWREG CLOC. 176) CAN RE 

211 CHANGED BY USING THE OOT FACILITIES. 
i? 1.2 

-13 ?. THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM 

214 CONTROL BY TYPING THE 'CONTROL 6 G' KEYS, THIS 

215 KEYBOARD OPERATION WILL PRINT OUT THE CURRENT CONTENTS 

216 AND ACCEPT NEW OCTAL SWITCH REGISTER DATA TERMINATED 
21 > WITH A CARRIAGE RETURN. 

218 

21 c * 3, ONCE THE ODT MODE HAS BEEN ENTERED BECAUSE OF AN 

"0 ERROR CONDITION WITH BIU5 SET CHALT ON ERROR), STEP u^ 

1 ABOVE IS OF NO VALUE, SO RESORT TO STEP t>\ TO ALTER THE" 

SOFTWARE SWITCH REGISTER IF DESIRED BEFORE TYPING 

iV3 'P' ("CONTINUE). 
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!.VH 
22 l > 

231 
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i v v. 

.'33 
i? 34 

235 
236 
23.* 
23(? 
23 1 * 
.'40 
241 

242 

24 5 

244 
24b 
246 
24? 
248 

24 <* 
250 

25 i 

25* 
255 

25? 

25tt 

259 
260 
261 
262 
26 5 
264 
265 
266 
26/ 
268 
. 6 C * 
2?0 



*.0 



6.1 



6.2.2 



ERROR REPORTING 



ERROR COMMENT 



All ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE: 
COMMENT AS TO THfc TYPE Of FAIlURE. FURTHER QUALIf ICATTON 0*- 
THE ERROR CAN BE OeTAINED IE NEEDED FROM THE COMMENT AT THE 
ERROR PC OR FROM THE TEST ITSELF. 

TO CONSERVE MEMORY SPACE FOR THE 4K PROGRAM ME10RY 
REQUIREMENT, REGISTER 5 (R5) IS RESERVED FOR THE 
SBDDAT LOCATION C1126). 

EXAMKE; CMP *GDDA T ,(R5) IS THE SAME AS CMP $GDDAT , $BDDAT, 
6.2.1 ' HRUR DATA 

ERROR TITLE HEADING 

ERRPC 1STNUM BUSADR EXPCT RCVD 

XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX 



kRRPC 

TSTNUM 
BUSADR 
EXPCT 
RCVD 



1. 1 STING ADDRESS WHERE THE ERROR WAS DETECTED 

Tr.ST NUMBER WHERE THE ERROR OCCURRED 

DRVliJ BUS REG ADDRESS OF CONCERNED OPERATION 

DATA THAT WAS EXPECTED 

DATA THAT WAS RECEIVED 



ERROR TITLES 
REG TIMEOUT ER 
REG READ/WRITE BR 
IRR REG ER 
ACR REC c'R 
I MR REG ER 
ISR REG ER 
CHIP STAT ER 



{REGISTER TIMEOUT ERROR 
jREGISTER READ/WRITE fcwnOR 
I INTERRUPT REQUEST REGISTER ERROR 
jAUTOCLEAR REGISTER ERROR 
{INTERRUPT MASK REGISTER ERROR 
{INTERRUPT SERVICE REGTSTER ERROR 
{CHIP STATUS ERROR 
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285 

«°84 

'85 

28* 

^8 7 

286 

289 

291 

?.*** 
29A 
29S 

29/ 

P98 
?99 
300 
3ol 
30c> 
303 
304 
30b 
3Qfe 
30/ 
308 
309 
310 
311 
31«? 
315 
714 
3 IS 
31* 
31/ 
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.M 



'?.<! 



'.3 



7,4 



0*0 
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DRVU J BUS ADORFSS MOIHF TCAT ION 

MODIM LOCATION ' IBASF * ( ADDR : 1244) If BASE BUS ADDRESS 

IS NOT 164180. 

Xx[)P APT NOTES 

THIS DIAGNOSTIC DOES SUPPORT ACT AND APT ENVIRONMENTS, 

POWER FAIL 

A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH 
NON- VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE). 

MULTIPLE DRV11J INTERFACE TFSTING 

THIS PROGRAM DOES NOT "AUTO -SIZE" THE NUMBER OF DRVllJ'S CONNECTED 

THIS DIAGNOSTIC WILL TEST SJ1QUENTIALI Y UP TO 4 DRV11J INTERFACES 

WITH CONTIGUOUS BUS ADDRESSES. THIS IS ACCOMPLISHED 

Bi THE USER SETTING UP LOCATION 'DEVM* ( ADDR : 1^46; 

WITH A BIT MAP INOICATING WHAT INTERFACES ARE TO BE TESTED. 

I.E. BITO * I SAYS TEST 1ST DRVUJ, 

BIT1 ■ 1 SAYS TEST 2N0 DRVUJ 

BIT2 » 1 SAYS TEST 3RD DRVUJ 

BITS - I SAYS TEST 4TH DRVUJ 



1ST 

r>NO 

3RD 

4TH 



UNIT 
LNIT 
LNIT 
UNIT 



STARTING 
STARTING 
STARTING 
STARTING 



CSRA 
CSRA 
CSRA 
CSRA 



164160 


»DEVM 


* 1 


164140 


*DEVM 


- 3 


164120 


IDEVM 


» 7 


164100 


SDF.VM 


- 17 



RESTRICTIONS 



EXECUTION TIME 



EXECUTION TIME RANGES FROM ABOUT <S SECONDS ON FIRST 
PASS WITH NO ITERATIONS TO < 20 SECONDS WiTH ITERATIONS 
ENABLED AFTER FIR->T PASS, PER DRVUJ UNIT CONNECTED. 
AN END PASS' MESSAGE INDICATES ALL TESTS HAVE COMPLETED 
OH ALL SELECTED UNITS, 
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:vo 

3-1 9.0 PROGRAM TEST DESCRIPTIONS 

3 t V - 

325 

3iM GENERAi 

3-^6 THIS DIAGNOSTIC CONTAINS A SERIFS Of INDEPENOENT TESTS DESIGNED 

3.V 10 TEbT LOGIC FUNCTIONS AND DATA PATHS OF THE DRV11J OPTION. 

3^ TESTING IS ACCOMPLISHED WITH THE AID OF THE 

W* DRV11J LOOP BACK CABLE PROVIDED FOR DIAGNOSTIC TESTING. 

3^0 A COMPLETE I 1ST OF TESTS IS AVAILABLE IN THE TABLE OF CONTENTS 

331 AT THE BEGINNING Of THE LISTING, THE COMMENT FiELU WITHIN 

332 EACH TEST CAN BE BENEFICIAL IN TEST UNDERSTANDING. 

3*4 TESTING WITH WE ORVUJ CABLE ALLOWS FOR TESTING 

335 OF PORT A WITH PORT C AND THE TESTING OF PORT B 

336 WITH PORT D. 
33 7 

338 4,1 TESTS Tl T22 REGISTER CHECKING 

339 

340 iHESE TESTS WILL WRITE/READ POR I S A TO r 

341 ANO WRITE/READ PORTS B TO D WITH FLOAT TNG 

342 ONES ANO FLOATING ZEROS, GROWING ONES ANO 
345 GROWING /EROS ANO DATA PATTERNS. 

344 TESTS ARE PERFORMED TO INSURE INTERACTION WITH 

345 CONNECTED PORTS ANO NO INTERACTION BETWrEN 
34* UNCONNECTED t'ORTS. 

34/ 
348 

34£ 9.2 TP2-T42 INTERRUPT CONTROL REGISTER CHECKING 

3^1 TESTS ARE MADE TO THE INTERRUPT CONTROL CHIP 

3^2 REGISTERS IRR.ACR.IMR ANO LIMITED TESTING Of 

553 ISR REGISTER UNTIL INTERRUPTS ARE PERFORMED, 

354 TESTS ARE PEPFORMED ON THE REGISTERS WITH 

:}->-> FLOATING ONES .FLOAT I**G ZEROS .GROWING ONES 

356 ANO GROWING ZEROS. CHIP RESET CAPABILITIES 

3-?^ ARE TESTED AS WELL AS L^IQUENESS Of REGISTERS 

35J WITHIN A CHIP G.10UP ANO THE UNIQUENESS Of 

35^ ONE GROUP'S REGISTERS TO ANOTHER GROUP'S 

360 REGISTERS. 
361 

3<>£ 9,3 TEST 43 - TEST STATUS BITS GINT , S2, SI , S0.GP1 ,GP2 

36 j 

3^? EXERCISE THE STATUS BITS S2.S1.S0 ANO GINT FOR 

3^5 t ACH GROUP CHIP BY SE 1 T ING SINGLE IRR BITS TO CAUSE THE 

3*& STATUS BITS TO GO FROM 120 TO 127. EACH IRR BIT 

*' hl IS THEN MASKED TO RETURN STATUS BACK TO ORIGINAL 

3*« STATUS WITH NO IRR BITS SET. 

369 

3^ 9.4 T44-T47 POLLED MOOE TESTING 

3 1 1 

3;<; THIS TEST WILL WRITE PATTERNS INTO DBRA WITH 

3/^ EITHER LOW TO HIGH OR HIGH TO LOW POLARITIES. 

3/4 AFTER PLACING ALL ONES IN DBRA AND THE.N SELECTING 

375 ACTIVE LOW. CLEARING DBRA WILL NOW SET IRR BITS 

Mb 0*7, GROUP 1 AND IRR BITS0-&»GRQUP5, 



! I 
l 
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3?* 1HL RPLT SIGNALS WILL SET IRR BITS 4 7 

3'8 WHEN WRITING DBRA IN OUTPUT MODE, THIS Wll.l 

3<'9 SET THE RPLY FOR DBRC .( IRR6, GROUP 2) 

380 WHEN READING DBRC IN INPUT MODE UIH I SET 

381 1HE RPLY FOR DBRA, (IRR BIT 4, GROUP 2) 

5^' WHEN WRITING DtfRB IN OUTPUT MODE,) HIS WILL 

383 Shi THE RPLY FCR DBRDC IRR BI T 1 .GROUPS) 

3S4 WH6N READING DL'PD IN INPUT MODE, THIS WILL 

3H^ SET THE RPLt FOR DBRB( IRR BITS, GROUP ?). 

36b TFST ALL DATA PATTERNS TO SET IRR BITS 

38.' GROUP! AND GROUPS AND FOR THE SETTING OF RPL'i 

368 BITS IN THE GROUP 2 IRR REGISTER BY WRITING IN 

38° OUTPUT MODE ANO READING IN INPUT MODE. 

3^0 TEST THAT NO RPl Y BITS SET WHEN READING IN OUVPUT 

3 l U MODE AND WHEN WRITING IN INPUT MODE, 

;w 

3^3 9,b TSQ Tbl CSR' S WITH RESET 

3^4 Sf-T UP CSR'S IN OUTPUT MODE AND CLEAR 

3^5 DIRECTION BIT OUT OF EACH CSR EXCEPT KOR 

3S6 CSRA WHICH WI' L CLEAR DIR BIT AND I/E BIT. 
39 7 

3^« 10,0 LISTING 

59\* _ . , 
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41 < 
414 





000001 




lbOOOO 


''•IS 




416 




41 / 




4UM 




419 




4r!0 


165400 


421 


000001 


422 





423 



oouoo 

104000 
000004 

0000 11 
00001,' 
0000 15 
000200 
1^7776 
177776 
177771 
W7772 
i77570 
177570 

OCOOOO 
000001 
000002 
000003 
000004 
000005 
00000;. 
00000/ 
000006 
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♦PROGRAM Bt BILL MEAVEY 
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TST 
TST 
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t/BIl t 
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HEAVE f/ 
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LOOP ON TEST, INHIBIT ERROR 
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•♦ REVISED TO COMPENSATE FOR LONG CABLES £ FILTERS 
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PJWR- 165400 

$ iN-1 

.SBTTL OPERATIONAL SWITCH SETTINGS 



TYPOUT 

J ;C;Pa 
s;GPA 



;JRS 



SWITCH 



USE 



• - 

J* 


15 




HALT ON ERROR 




;♦ 


14 




LOOP ON TEST 




;* 


13 




INHIBIT ERROR TYPEOUTS 




j* 


11 




INHIBIT ITERATIONS 




; + 


9 




LOOP ON ERr^OR 




, ♦ 


8 




LOOP ON TEST IN SWR<7;0> 




.SBTTL 


BASIC DEFINITIONS 




{♦INITIAL ADORESS 


UF 


THE STACK POINTFR +** 1100 ♦♦♦ 




UACK- 


1100 








ERROR- 


EMT 




; {BASIC DEFINITION OF ERROR 


CALL 


SCOPE- 


IOT 




s {BASIC DEFINITION OF SCOPE 


CALL 


{♦MISCELLANEOUS DEFINITIONS 




HT- 


11 




iiCODE FOR HORIZONTAL TAB 




LF 


12 




{{CODE FOR LINE FEED 




CR 


15 




;jCOOE FOR CARRIAGE RETURN 




CRLh * 


200 




j {CODE FOR CARRIAGE RETURN-LINE FEED 


PS- 


177776 




{{PROCESSOR STATUS WORD 




n sw« 


PS 








STKLMT- 


177774 




U STACK LIMIT REGISTER 




PIRQ- 


177772 




{ {PROGRAM INTERRUPT REQUEST 


REGISTER 


DSWR- 


177570 




i {HARDWARE SWITCH REGISTER 




DDISP- 


177570 




} {HARDWARE DISPLAY REGISTER 




5 ♦GENERAL PURPOSE 


REGISTER DEFINITIONS 




RO- 


*0 




j {GENERAL REGISTER 




Rl« 


*1 




; {GENERAL REGISTER 




R2- 


42 




j {GENERAL REGISTER 




R3* 


*3 




{ {GENERAL REGISTER 




R4« 


#4 




; {GENERAL REGISTER 




R5- 


*5 




{ .-GENERAL REGISTER 




R6- 


#6 




} {GENERAL REGISTER 




R/« 


41 




s {GENERAL REGISTER 




*P. 


*6 




j {STACK POINTER 





cviwrc niiviu nirti; tst pru 

BASIC DEFINITIONS 

OOOOO ,' 

000000 

000040 
000100 
000140 
000200 
000240 
000300 
000340 

100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
OOIOOO 
000400 
000200 

oootoo 

000040 
000020 
000010 
000004 
000002 
000001 

100000 
040000 
020000 
010000 
004000 
002000 
001000 
OOOmOO 
000200 
000100 
000040 
000020 
0OO010 
000004 
000002 
000001 
001000 
000100 
Q0Q2QQ 
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i 
I 1 



SEQ OOU 



PC • * / 

{♦PRIORI! f 

PRO-- 

PR1» 

PR2- 

PR 5 

PR4* 

PR5* 

PR6 a 

PR 7- 



SWITCH 



;* 

SU14 
SW13 
SU12 
SU11 
SW10 
SW09 

swoe 

SU07 
SW06 
SW05 
SW04 
SW03 
SU02 
5W01 

swoo 

SU9- 
SW8- 
SU7* 
SW6« 
SW5- 
SU4- 
SW3- 
'•12- 

swo- 

{-DATA 

Bins 

BIT14 
BIT13 
BIT12 
BIT11 
BIT10 
BIT09 
BIT08 
BIT07 
BIT06 
BliOS 
5I T 04 
HIT03 
BIT02 
BIT01 
BITOO 

b;t9- 

BIT8- 
UIT7* 



EVEL DtriNI 


40 
100 
J40 
200 
240 
300 
340 

REGISTER" SWI 
100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
20 
10 
4 
2 
1 
SU09 

swoe 

SU07 

swoe 

5W05 
SU0« 
SW03 
SW02 
SW01 
SW00 
BIT DEFINITIONS 
100000 
4G000 
20000 
10000 
4000 
2000 
1000 
400 
200 
]00 
40 
20 
10 
4 
2 
1 
BIT09 

BITOd 
BITQ7 



J 



5 j PROGRAM 

TIONS 
5 ;PRIORI r 
5 {PRIORI! 
{PRIORIT 
{PRIORIT 
: :PR[ORIT 
; {PRIORIT 
. {PRIORIT 
. jPRIORIT 

TCH DE r INI 



couNrt:* 

LEVEL 

LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 



Y 
Y 
Y 
Y 
Y 
I 
Y 
r 
TIONS 



(BITOO TQ LITIS) 



1 ! 



TVDRCC DRVUJ DlAiJ TS1 PRU 
BASIC DEFINITIONS 

OOOIOO 

000040 
000020 
000010 
000004 
000002 
000001 



000004 
000010 
000014 
000014 
000014 
000020 
000024 
000050 
00G034 
000060 
000064 
000240 
164160 
000001 
100000 
000400 
001000 



424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
4 34 
435 
4 36 
437 
438 
4 39 
440 
441 
442 
443 
444 
445 

4<, ' 
448 
449 
450 
451 
4 52 
4:>3 
454 
455 
4 56 
457 
458 
459 
460 



000020 
000030 

00C040 
000050 
00006? 
000070 

000100 
000110 
000120 
000130 

000140 
000160 
000170 

0C0200 
000240 



000<?.>C 
000244 
000250 
000254 



000300 
000260 
000340 



MACRU Ml?00 2/ 


DEC- 83 


HIT6' 


BIT06 


BIT5- 


BIT05 


3IT4> 


BIT04 


BIT3- 


BIT03 


BIT2- 


Brio? 


BIT1- 


BIT01 


Biro- 


BITOO 


{♦BASIC 


"CPU" 


ERRVEC- 


4 


RESVEC* 


10 


TBITVEC 


-14 


TRTVEO 


14 


BPTVEC- 


14 


IOTVEC- 


20 


PWRVEO 


24 


F.MTVEC" 


30 


TRAPVEC 


-34 


TKVEC- 


60 


TPVEC- 


64 


PIRQVEC 


= 240 


ABASE- 


164160 


4DEVM- 


1 


ROY- 


BIT15 


DIR* 


BIT8 


IE- 


BIT9 



PAGE 



SEQ 0012 



TRAP VECTOR ADDRE55L 1 



OTHER ERRORS 
ILLEGAL INSTRUCTIONS 



{TIME OUT AND 

RESERVED AND 

"T" BIT 

TRACE TRAP 

BREAKPOINT TRAP CBPT) 

INPUT/OUTPUT TRAP ( IOT ) **SCCPE+* 

POWER FAIL 

EliULA T 0R TRAP CEMT) +*ERROR + + 

•TRAP" TRAP 

TTY KEYBOARD VECTOR 

TTY PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 
BASE ADDRESS 
DEFAULT TO ONE DRVI1J 



{CHIP COMMAND SUMMARY 
CIRMR- 20 
CSIRMR- 30 



CTMR- 

CSIMR- 

SIMR- 

SSIMR- 

C.TRR* 
CSIRR- 

5IRR- 



40 
50 
60 
70 

100 
110 

120 
130 



{CLEAR IRR ANO IMR 

! CLEAR SINGLE IRR AND IMP BIT 

i CLEAR IMR 
CLEAR SINGLE IMR BIT 
SET ALL IMR BITS 
SET SINGLE IMR BITS 

CLtAR IRR 

CLEAR SINGLE IRR BITS 
SET ALL IRR BITS 
SET SINGLE IRR BITS 



CHPISR- 140 

CISR- 160 
CSISR- 170 



LMD04 
LMD57 



200 
240 



{CLEAR HIGHEST PRIORITY 

jCLEAR ISR 

iCi EAR SINGLE Y SR BIT 

{LOAD MODE BITS M0-M4 
{LOAD MODE BITS M5-M7 



ISR BIT 



;CHIP MODE BIT PRESELECTION 
MISR- 240 
MIMR- 244 
h-IRR- 250 
MACR- 254 



:U \P WRITE 
PACR- 300 

PIMM- 260 
PVMA- 340 



PRESELECllQN 



{PRESELECT 
{PRESELEC7 
{PRESELECT 



AUTO CLEAR REG. FOR WRITING 
IMR REG. KOR WRITING 
VECTOR MEMORY ADDRESS 



Mi 



CVDRCC DRV 11. J DlAli TS» PRU 

BASIC DEFINITIONS 



MACRO Ml 200 



DFC d3 0'):5fj PAGE 



4M 
4(><? 



OOOI74 
000176 

000200 

464 000100 
46b 



000000 



OOC174 

000000 
000000 

00015/ 
000100 
000104 



SEQ 0013 



00140? 

000200 000002 



.SIHTL TRAP CAICHER 

. =0 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".♦P.HALT" 
j* SEQUENCE TO CATCH ILLEGAL TRAP'; AND INTFRRUPTS 
; ♦LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTOR 1 . 

. » 1 74 
D1SPRF.G. .WORD si SUM WARE DISPL.Af REGISTER 

SWREG: .WORD j {SOFTWARE SWITCH REGISTER 

.SBTTL STARTING ADDHb SSCES ) 

JMP a#START ;;JUMP TO STARTING ADDRESS OF PROGRAM 

. 100 

.WORD 104,200,2 ;ir • tl EVENT' ON U BUS IS CONNECTED 

{IGNORE IT'S INTERRUPT - JUST DO A RTI 



CVORCC HRWU 


PIAO TST PRT1 


ACT 11 HOOKS 




46; 






000106 




000046 


00004b 


013130 




000052 


000055 


000000 




000106 


46a 


001000 


469 




4 70 




4 71 




4 7^ 






001000 




000024 


000024 


000200 




000044 


000044 


001000 




001000 


0010OO 




ooiooo 


000000 


O01002 


001170 


001004 


000006 


001006 


000024 


001010 


000024 


0010X2 


000031 



MACRO M1200 S .' DFC-63 



PAUF *3 



SEQ 0014 



. SBTTL ACT 11 HOOKS 

(HOOKS REQUIRED BY ACT11 

I SAVE PC 



iSVPC-. 

."46 

SF.NDAD 

.-52 

.WORD 

, - JSvPC 

,-1000 



llDSFT L0C.46 JO ADDRESS OF tENDAD IN . *EQP 







M2)SET LOG. 52 
m RESTORE PC 



TO /FRO 



.SBTTL APT PARAMETER BLOCK 

{SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 



I LONGEST TEST TIME 
j 1ST PASS RUN Tlflt 
{ADDITIONAL RUN TIME 



. *X-. ijSAVE CURRENT LOCATION 

.-24 t,SET POWER FAIL TO POINT TO START OF PROGRAM 

200 i {FOR APT START UP 

.-44 uPOINT TO APT INOIRECT AODRESS PNTR. 

*APTHOR ii POINT TO APT HEADER BLOCK 

.■.*X j {RESET LOCATION COUNTER 



J 



{SETUP APT 
{INTERFACE 
♦APTHD 
IHIBTS 

IM8A0R 
tTSTM: 
1PASTM: 
♦UNITMi 



PARAMETER 
SPEC. 



BLOCK AS DEFINED IN r^ APT-PDPll DIAGNOSTIC 



.WORD {{TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

.WORD IMAIL j {ADDRESS OF APT MAILBOX (BITS 0-15) 

.WORD 6. nPUN TIM OF LONGEST TEST 

.WORD 20. nltUN TIME IN SECS. OF 1ST PASS ON 1 UNIT ^QUICK vERIFt) 

.WORD 20. ♦ ADDITIONAL RUN TIME CSECS) OF A PASS FQR EACH ADDITIONAL 

• WORD *£TEND-*MAlL/2 i {LENGTH MAILBQX-fcTABLEC WORDS ) 



UNIT 



CVDRCC DRV1UI DIAG TST PRT1 
COMMON Trti'iS 
473 



MACRO Ml 200 



DEC -83 09 



PAGE 9 



r »EQ 00 IS 



001100 
001 100 
001102 
001105 
001104 
001106 
001110 
001112 
001114 
001115 
001116 
001120 
001122 
001124 
001126 
001130 
001132 
001134 
001135 
001136 
001140 
001142 
U01144 
001146 
001150 
001152 
001154 
001155 
001156 
001157 
OO1160 
001162 
001164 
001165 
001166 



001170 

001170 
OOU72 
001174 
001176 
OO120O 
001202 
001204 
001206 
001210 
001210 
00X211 
0012X2 



001X00 

OOOOOO 

OOC 

OOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

000 

001 

OOOOOO 

OOCOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

000 

000 

OOOOOO 

177570 

177570 

177560 

177562 

177564 

177566 

000 

002 

0X2 

OOO 

OOOOOO 

OOOOOO 

077 

015 

0X2 



OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 

000 

000 

OOOOOO 



000 



.SBTTL COMMON TAGS 



j 1 ♦♦♦*. 

j*THIS 

j*USEO 

•CMTAG 

•TSTNM 
iERFLG 
JICNT: 
$ LP ADR 
•LPERR 
•ERTTL 
•ITEMB 
•ERMAX 
•ERRPC 
♦GDADR 
•BDADR 
•GDDAT 
•BDDAT 



IAUT06: 
$ INT AG: 

SWR; 
DISPLAY 

• TKS 

• TKB 
ITPS 
»TPB 
INaL; 

• FILLS 

• FILLC 
ITPFLG 
•TIMES 
•ESCAPE 
IQUES: 
•CRLFj 
•LF: 



TABLE CO. 1 : TAINS VARIOUS 
IN THE PROGRAM. 
.-1X00 



.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.UOPD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 

? .WORD 
X 77560 
177562 
X 7 7564 
17 7566 
.BYTE 
.BYTE 
.BYTE 
.BYTE 


:0 
.ASCII 
.ASCII 
.ASCI^! 












1 





















DSWR 

DDISP 




2 
12 




/?/ 

<X5> 

<X2> 



.SBTTL 



APT MAILBOX -E TABLE 



COMMON STORAGE LOCATIONS 



{START OF COMMON TAGS 

CONTAINS THE TEST NUMBER 
CONTAINS ERROR FLAG 
CONTAINS SUBTEST ITERATION COUNT 
CONTAINS SCOPE LOOP ADDRESS 
CONTAINS SCOPE RETURN FOR ERRORS 
CONTAINS TOTAL ERRORS DETECTED 
CONTAINS ITEM CONTROL BYTE 
CONTAINS MAX. ERRORS PER TEST 
CONTAINS PC OT LAST ERROR INSTRUCTION 
CONTAINS ADDRESS OF GOOD' DATA 
CONTAINS ADDRESS OF 'BAD* DATA 
CONTAINS 'GOOO' DATA 
CONTAINS 'BAD' DATA 
RESERVED- -NOT TO BE USED 

AUTOMATIC MOOE INOICATOR 
INTERRUPT MOOE INOICATOR 

ADDRESS OF SWITCH REGISTER 

ADDRESS OF DISPLAY REGISTER 

TTY KBO STATUS 

TTY KBO BUFFER 

TTY PRINTER STATUS REG, ADDRESS 

TTY PRINTER BUFFER REG. AOORESS 

CONTAINS NULL CHARACTER FOR FILLS 

CONTAINS » OF FILLER CHARACTERS REQUIRED 

INSERT FILL CHARS. AFTER A "LINE FEED" 

"TERMINAL AVAILABLE" FLAG (BIT<07> -O-YfcS) 

MAX. NUMBER OF ITERATIONS 

ESCAPE ON ERROR ADDRESS 

QUESTION MARK 

CARRIAGE RETURN 

LINE FEEO 



.EVEN 






•MAIL: 






•MSGTY: 


.WORD 


AMSGTY i 


•FATAL: 


.WORD 


AFATAL i 


•TESTN: 


.WORD 


ATESTN | 


•PASS: 


.WORD 


APASS i 


•DEVCT: 


.WORD 


ADEVCT i 


•UNIT: 


.WORD 


AUNIT j 


•MSGAD: 


.WORD 


AMSGAD i 


•MSGLG: 


.WORD 


AMSGLG i 


•ETABLE« 






• ENV: 


.BYTE 


AENV i 


•ENVM: 


.BYTE 


AENVM , 


*5WREG; 


.WORD 


ASWREG i 



******* 



|APT MAILBOX 
{MESSAGE TYPE CODE 
iFATAL ERROR NUMBER 
{TEST NUMBER 
iPASS COUNT 
lOEVICE COUNT 
lI/O UNIT NUMBER 
iMESSAGE ADORESS 
{MESSAGE LENGTH 
{APT ENVIRONMENT TABLE 
{ENVIRONMENT BYTE 
{ENVIRONMENT MOOE BITS 
lAPT SWITCH REGISTER 



n 



CVORfC ORW1J IMAii TS1 PRU 
APT MAILBOX -ETABl I. 



MACRU Mli'OO 



DEC 83 00; 55 PAtib <) 1 



001214 
001216 



000000 
000000 



001220 
001221 



000 
000 



001222 OUOOOO 



001224 


000 


001225 


OOO 


001226 


000000 


001230 


too 


001231 


000 


001232 


000000 


001234 


000 


001235 


000 


001236 


000000 


001240 


000000 


001242 


000000 


001244 


164160 


001246 


000001 


001250 


000000 


001252 





S'JSWR. 
SCPUOPj 
; * 
;♦ 
j* 

j ♦ 
?♦ 

iMAMSl: 
$MTYP1: 

;* 
;♦ 

: * 



.WORD 
. WORD 



.BYTE 
.BYTE 



♦MAMS2 

SMTYP2 

♦MADR2 

♦MAMS3 

IMTYP3 

IMA0P3 

IMAMS4 

♦MTYP4 

♦MADR4 

♦VECT1 

♦VECT2 

♦ BASE 

IDEVM 

iCOWl 

♦ETENOi 



.BYTE 
.BYTE 
.UIORD 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 
,WOR r J 
.WORD 
.WORD 
.WORD 
.WORD 



AUSWR 
ACPUOP 



AMAMS1 
AMTrPl 



♦MAORI; .WORD AMADR1 



AMAM52 

AMTYP2 

AMADR2 

AMAMS3 

AMTYP3 

AMADR3 

AMAMS4 

AMTYP4 

AMADR4 

AVECT1 

AVECT2 

ABASE 

ADEVM 

ACDW1 



SEQ 0016 



» i USER 

I I CPU TYPE. OPT IONS 

BITS 15 -11 -CPU TYPE 

11/04-01 ,11/05 -02, 11/20 -03, 11/40*04, 11/45*05 
11/70-06, PDQ-07.Q-10 

REAL TIME CLOCK 
FLOATING POINT PROCESSOR 
MEMORY MANAGEMENT 



BIT 10 
BIT 9 
BIT 8 
i »HIGH 
j jMEM. 



BYTE 



ADDRESS, M.S. 
TYPE,BLK*1 
MEM, TYPE BYTE -- (HIGH BrTE) 
900 NSEC CORE -001 
300 NSEC BIPOLAR -002 
500 NSEC MOS-003 
jjHIGH ADDRESS, BLK01 

MEM, LAST ADDR.-3 BYTES, THIS WORD AND LOW Of "TfPE" ABOVE 
jih'IGH ADDRESS, M.S. BYTE 
; jME. M TYPE,Bl.K*2 
iMEM.LAST ADDRESS. BLK02 
>HIGH At;K'£SS.rVJ.BYTE 
;HEM.TfPE,BLK#..- 
jMEM.LAST ADDPE3S,BLK«3 
I HIGH ADl>P*SS. M.S. BYTE 
jMCM.TYPt .JLK4W 
jMfM.LAST ADDRESS, BLK04 
I INTERRUPT VECTORS, BUS PRI0RITY41 
i INTERRUPT VECT0RO2BUS PRIORITY*^ 
;BASE AWRESS Of EQUIPMENT UNDER TEST 
j DEVICE MAP 
(CONTROLLER D&SCRIPTXQN WQRDn 



CVDRCC ORVilJ PIAti TSl PRU 
ERROR POINTER TABLE 



MACRO MU>00 



DFC-83 09 5 55 PAGE 10 



SEQ 0017 



001252 



474 






475 


001252 


017022 


4 76 


001254 


017154 


47 7 


001256 


017276 


478 


001260 


000000 


479 






480 






481 


001262 


017041 


482 


001264 


017154 


483 


001266 


017276 


484 


001270 


000000 


485 






486 






487 


001272 


017063 


488 


001274 


017154 


489 


001276 


017276 


490 


001300 


000000 


491 






492 






493 


001302 


017076 


494 


001304 


017154 


495 


001306 


017276 


496 


001310 


000000 


497 






498 






499 


001312 


017111 


500 


001314 


017154 


501 


001316 


017276 


502 


001320 


000000 


503 






504 






505 


001322 


017124 


506 


001324 


017154 


507 


001326 


017276 


508 


001330 


000000 


509 






510 






511 






512 


001332 


017137 


513 


001334 


017154 


514 


001336 


0172V6 


515 


001340 


000000 


516 






517 






518 






519 







SBTTL ERROR POINTER TABLE 

♦ 1HIS TABLt CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR 
♦THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
♦LOCATION llfEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS 



♦N0TE1: 

♦ N0TE2.* 



lERRTBs 
j ERROR 



j ERROR 



FM 
DH 
DT 

DF 

1 

EMI 

L)H1 

DTI 





EM2 
DH1 
DTI 


3 

EM3 

DH1 

DTI 



4 

EM4 
DH1 
DTI 




j ERROR 5 

EM5 
DH1 
DTI 




{ERROR 



; ERROR 



; ERROR 



j ERROR 



6 

EM6 

DH1 

DTI 





7 

EM7 

DH1 

DTI 





IF ilTEMB IS 
EACH ITEM IN 

I jPOINTS 
j jPOINTS 

{POINTS 



jPOINTS 



THE ONLY PERTINENT 
THE TABLE CONTAINS 4 

TO THE ERROR MESSAGE 

DATA HEADER 

DATA 

DATA FORMAT 



DATA lb 



POINTERS 



( iERRPC). 
EXPLAINED 



PERTINENT 
AS FOLLOWS 



TO 
TO 
TO 



THE 
THE 

THE 



REG TIMEOUT ER 
ERRPC TSTNUM 
$ERRPC TSTNUM 



REG READ/WRITE 
ERRPC TSTNLH 
IERRPC TSTNUM 



IRR REG ER 
ERRPC TSTNUM 
$ERRPC TSTNUM 



ACR REG ER 
ERRPC TSTNUM 
IERRPC TSTNUM 



IMR REG ERROR 
ERRPC TSTNUM 
IERRPC TSTNUM 



ISR REG ERROR 
ERRPC TSTNUM 
IERRPC TSTNUM 



;CHIP STAT ER 
, ERRPC TSTNUM 
i IERRPC TSTNUM 



BUSADR 
IBDADR 



ER 

BUSADR 

IBDADR 



BUSADR 
IBDADR 



BUSADR 
IBDADR 



BUSADR 
IBDADR 



BUSADR 
IBDADR 



BUSADR 
IBDADR 



EXPCT 
IGDDAT 



EXPCT 
IGDDAT 



EXPCT 
IGDDAT 



EXPCT 
IGDDAT 



EXPCT 
IGDDAT 



EXPCT 
IGDDAT 



FXPCT 
IGDDAT 



RCVD 
IBDDATCR5) 



RCVD 
JBDDATCR5) 



RCVD 
IBDDATCR5) 



RCVD 
IBDDATCR5) 



RCVD 
IBDDATCR5) 



RCVD 
5B0DAT(R5) 



RCVD 
IBDDAUR5) 



I BUS REGISTER ADDRESS POINTERS 



CVDRCC IWVUJ OlAi; TS1 PRT1 
ERROR POINTER TABLE 



MACRU N1200 ?_1 OFC-83 09;55 PA(it 10 1 



bEQ 0018 



520 



Wl 


001342 


164160 


•Vc' 


001344 


16416c? 


S2S 


001346 


164164 


524 


001350 


16416b 


525 


001352 


164170 


526 


001.354 


164172 


S27 


001356 


164174 


526 


001360 


164176 


529 






530 






531 






532 






533 


001362 


000000 


534 


001364 


000001 


535 


001366 


000000 


536 


001370 


OOCOOO 


53? 


001372 


000000 


538 


001374 


000000 


539 


001376 


000000 


540 


001400 


000000 



DRC5A 


ABASE 




DRDBA 


ABASE 


? 


DRCSB 


ABASE 


4 


DROBB 


ABASE 


► 6 


DRCSC 


ABASE 


► 10 


DROBC 


ABASE 


► 12 


DRCSD 


ABASE 


► 14 


DRDBD 


ABASE 


► 16 



{COMMON PROGRAM LOCATION(S) 



TSTNUM: 

DMAP: 1 

INTFLG; .WORD 

XXOP: .WORD 

IM.RLOC: .WORD 

ISR1.0C: .WORD 

IRRl.OC: .WORD 

ACRLOC: .WORD 



{CONTAINS TEST NUMBER ON tRROR 



CVDRCC DRVil.l D1AC5 TS1 PRTl 
PROGRAM START 

543 

544 OOImO? 



001402 
001406 
001410 
001414 
001416 

001422 
001450 
001436 
001444 
001452 
001460 
001466 
001474 
001502 
001506 
001512 
001520 
001526 



001534 
001540 
001546 
001554 
001562 
001570 

001572 
001574 
001600 
001602 
001610 
001616 
001622 
001626 
001634 
001636 
001644 

545 001644 

546 001650 

547 001654 

548 001660 

549 001664 

550 001666 

551 001674 

552 001702 

553 001710 

554 001716 

555 001720 

556 001726 
557 

558 001726 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
01273/ 
012737 
012737 
012737 
005037 
005037 
112737 
012737 
012737 



013746 
012/37 
012737 
012737 
022777 
001012 

000403 
012716 
000002 
012737 
012737 
012637 
005037 
132737 
001403 
012737 

005037 
005037 
005037 

004737 
001420 
042737 
042737 
042737 
023727 
001003 
012737 



001100 

001140 

001100 

015376 
000340 
015050 
000540 
016646 
"00340 
ol6442 
000340 
001160 
C01162 
000001 
001520 
001526 



000004 
001574 
177570 
177570 
177777 



001602 

000176 
000174 
000004 
001176 
000200 

001212 

001172 
001170 
001174 
O173T0 

000040 
000040 
000040 
001244 
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SBTTL PROGRAM START 



5EQ 0019 



000020 
000022 
000030 
000032 
000034 
000036 
C00024 
000026 



001115 
001106 
001110 



000004 
001140 
001142 
177350 



001140 
001142 



001211 
001140 



000022 
000032 
0000 j6 
164160 



174160 001244 



START; 

.SBTTL 

; j CLEAR 

MOV 
CLR 
CMP 
BNE 
MOV 

5 {INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
MOVB 
MOV 
MOV 

{{SIZE FOR A 

{{EQUAL TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 



INITIALIZE! THE COMMON TAGS 
THE COMMON TAGS (tCMTAG) AREA 

4ICMTAG.R6 } {FIRST 

(R6)* {{CLEAR 

4SWR.R6 ; i DONE? 

.-6 

41100, SP 
A FEW VECTORS 

4$SC0PE,Q4I0TVEC 

4340,Q4IOTVEC*2 

4$ERR0R,S4EMTVEC 

*340,S4€M1VEC»2 

4$TRAP,84TRAPVEC 



I nCATION 10 BE CLEARED 
MEMORY LOCATION 



{LOOP BACK IF NO 

{{SETUP THE 



STACK POINTER 



J 



UIOT VECTOR FOR SCOPE ROUTINE 

{LEVEL 7 

ilEMT VECTOR FOR ERROR ROUTINE 
{{LEVEL 7 

{{TRAP VECTOR FOR TRAP CAlLS 
4340,84TRAPVEC*2{LEVEL 7 
4IPWRDN.84PWRVEC {{POWER FAILURE VECTOR 
4340,84PWRVEC*2 {{LEVEL 7 

♦TIMES {{INITIALIZE NUMBER OF ITERATIONS 

♦ESCAPE {{CLEAR THE ESCAPE ON ERROR ADDRESS 

01,$ERMAX {{ALLOW ONE ERROR PER TEST 
4..ILPADR ; j INITIALIZE THE LOOP ADDRESS FOR SCOPE 
4,,ILPERR ; {SETUP THE ERROR LOOP ADDRESS 
HARDWARE SWITCH REGISTER, IF NOT FOUNO OR IT IS 



-1", SETL*> FOR A 
84ERRVEC.-CSP) 
4€4$,84ERRVEC 
40SUR,SWR 
40DISP.DISPLAY 
4-l.SSWR 
66$ 



005737 000042 



BR 65$ 

64 $ : MOV 465 ♦ , 1 SP ) 

RTI 
65$ : MOV 

MOV 
66$: MOV 

CLR 

BITB 

BEQ 

MOV 
67$} 

CLR 

CLR 

CLR 

CALL 

BEQ 

BIC 

BIC 

BIC 

CMP 

BNE 

MOV 
1000$: 
{CHECK OPERATING ENVIRONMENT 

TST 3442 



SOFTWARE SWITCH REGISTER, 
{ {SAVE ERROR VELr»R 
$ {SET UP ERROR VECTOR 

{{SETUP FOR A HARDWARE SWICH REGISTER 
{{AND A HARDWARE DISPLAY REGISTER 
{{TRY TO REFERENCE HARDWARE SWR 
{{BRANCH IF NO TIMEOUT TPAP OCCURRED 
{{ANO THE HARDWARE SWR ,5 NOT * -1 
{ {BRANCH IF NO TIMEOUT 
{jSET UP FOR TRAP RETURN 



4SWREG.SUR 

40ISPREG, DISPLAY 

(SP)*,84ERRVEC 

♦ PASS 

4APTSIZE,$ENVM 

67$ 

4$SWREG,SWR 

♦FATAL 

♦MSGTYP 

$TESTN 

FALCON 

1000$ 

440,8422 

440,8432 

440,8436 

♦BASE.4ABASE 

1000$ 

4174160. $BASE 



j {POINT TO SOFTWARE SWR 

i {RESTORE ERROR VECTOR 

{ {CLEAR PASS COUNT 

{{TEST USER SIZE UNOER APT 

{{YES, USE NON-APT SWITCH 

{{NO, USE APT SWITCH REGISTER 



{CLEAR 

{CLEAR 
{CLEAR 



ERROR NUMBER 
MESSAGE TYPE 
TEST NUMBER 



j CHECK FOR FALCON (KXT11) 

i BR IF NOT KXT11 SYSTEM 

{ YES, STRAP IOT. . . 

I . . ,EMT. . . 

I . . .ANO TRAP TO LEVEL 6. 

j IS $BASE VIRGIN ?? 

{ BR IF NOT. 

I YES, USE ENGINEERING DEFAULT 



;GPA 

; GPA 

iGP^ 

jGPA 

i }GPA 

}{GPA 

; iGPA 

; ;GPA 

i jGPA 



{ARE WE IN ACT/XXDP AUTO MODE? 



CVDRCC DRV11J ClAli TST PRU 
INITIALIZE THF COMMON TAGS 



559 
560 
561 
562 
563 
5b4 
565 
r^66 
567 
568 
569 
570 
571 
572 
573 
574 
575 
5 76 
577 
578 
579 
580 
581 
582 
585 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 



603 
604 
605 
606 
60 7 
608 
609 
610 
611 
6X2 



001732 
001734 
001742 
001744 
001752 
001754 
001^62 
001764 



001772 
001776 
002000 
002004 
002006 
002012 
002014 
002020 



002024 
002030 
002032 
002034 
002040 
002046 
002054 
002060 
002064 
002072 
002074 
002100 
002104 
002106 
002112 
002116 
002120 
002124 
002130 
002136 



002142 
002144 
002150 
002152 
002160 
002164 
002170 
002174 
002176 
002200 
002202 



001410 
023737 
001410 
012737 
000404 
123727 
001003 
112737 



005227 
001012 
005737 
001403 
005737 
001404 
104401 
104401 



005737 
001001 
104406 
005037 
013737 
042737 
013701 
010137 
032737 
001002 
000137 
012700 
010120 
062701 
022700 
001372 
012706 
012705 
013737 
106427 



000042 
177777 
001210 
000001 

177777 

001134 

001370 

016726 
016773 

001134 



001202 
001246 
17 7760 
001244 
001342 
000001 

013006 
001342 

C 00002 
001 36 n 

0O1100 
001126 
001202 
000340 



000004 

005037 001124 

005015 

012737 002206 

013700 001342 

012701 000010 

010037 0QXX22 

005010 

005720 

005301 

001403 



MACRO Ml 200 

000046 
001370 
000001 1$; 
001134 2$: 



i ♦ 



DEC 83 09:55 PAGt 11 1 



SEQ 0020 



BEQ 

CMP 

BEQ 

MOV 

BR 

CMPB 

BNE 

MOVB 



U 

a»42 t av>46 
?% 

0-1. XXDP 
2* 

*ENV,01 
3* 

01, SAUTOB 



{BRANCH IF NO 

{IS IT ACT AUTO MODE? 

s BRANCH IE YES 

{SET XXDP CHAIN MODE INDICATOR 



{ARE WE. IN APT 
{BRANCH IE NO 
;SET AUTO MODE. 



AUTO MODE? 
INDICATOR 



{PRINT TITLE IF NOT IN ACT OR APT AUTO MODE 



3$ 



4$ 



INC 

BNE 

TST 

BEQ 

TST 

BEQ 

TYPE 

TYPE 



001364 
001364 



001364 



001200 



{GET THE VALUE 
5$: TST 
BNE 
GTSUR 
START1; CLR 
MOV 
BIC 
MOV 
MOV 
BIT 
BNE 
JHP 
NEXPAS: MOV 
NEXPA1: MOV 
ADD 
CMP 
BNE 
MOV 
MOV 
hOV 
MIPS 



0-1 
5$ 

JAUTOB 

4$ 

XXDP 

5$ 

.TITLED 

, TLCABL 

IN THE SOFTWARE 
tAUTOB 
START1 

tl*4IT 

iDEVM.DMAP 

0177760, DMAP 

IBASE.R1 

Rl.DRCSA 

01.OMAP 

NEXPAS 

NXDEV1 

0ORCSA.RO 

Rl.(RO)* 

02. Rl 

0ORDBD*2.RO 

NEXPA1 

0STACK.SP 

0iBODAT.R5 

*UNIT,$DEVCT 

0PR7 



{EIRST TIME? 

{SKIP TITLE IE NO 

jARE WE IN AUTO MODE? 

{BRANCH TO TITLE TYPEOUT IE NOT 

{IS THE AUTO MODE UNDER XXDP? 

{SKIP TITLE IE NOT 

{PRINT OUT THE TITLE 

{PRINT "DRV11J CABLE REQ'D" 

SWITCH REGISTER 
{ARE WE IN AUTOMATIC MODE? 
{BRANCH IF YES 

{ASK EOR SWR INPUT EROM CONSOLE 
{CLEAR UNIT NUMBER 
{POSITION OF DRVll-J'S 
i(JP TO 4 DRVll-J'S ONLY 
{GET BASE ADDRESS 
{MAKE BUS REG. POINTER • INASE 
{IS FIRST 0RV11-J SELECTED? 
jYES 

{ADVANCE BASE DRV11-J ADDRESS 
{SET UP REGISTER ADDRESS POINTERS 
{LOAD EM.R1 • DRV11 J CSRA ADDRESS 
{DO POINTERS EOR ALL REGS. A THRU D 
{ALL DONE? 
{BR IE NOT 
{ALWAYS RESET STACK 
lINIT R5 WITH «BDDAT 
{LOAD APT COtWTER WITH UNIT NO, 
{SET PRIORITY TO 7 



{♦TEST 1 TEST THAT ALL REGISTERS ARE ADDRESSABLE 
TSTlj 



000004 



l*i 



SCOPE 






CLR 


IGODAT 


jNO DATA COMPARE 


CLR 


CR5) 


{NO DATA COMPARE 


MOV 


02$.30ERRVEC 


{SET UP TIMEOUT RETURN ADDRS 


MOV 


DRCSK.RO 


{SET UP 1ST DRV11 BUS ADRS 


NOV 


08, .Ri 


{SET UP REG COUNT 


MOV 


RO.IBDADR 


;SET UP CURRENT DRV BUS ADRS 


CLR 


CRO) 


{SEE IE THERE 


TST 


(R0>* 


jBUMP TO NEXT 


DEC 


Rl 


{COUNT 8 OF THEM 


BEG 


3i 


iBR if ALL DONE. 



CVDRCC DRV11J 01 Ali TST PR1 1 MACRO M1200 ;•/ DEC 83 09:55 PAGE It -^ 

U TEST THAT AL.l. REGISTERS ARE ADDRESSABLE 



SEQ OOkl 



613 


002204 


000771 






614 


002206 


022626 






61b 


002210 


104001 






616 


002212 


012737 


000006 


000004 


bi; 










618 


002220 


000004 






619 


002222 


013700 


001342 




620 


002226 


013701 


001352 




621 


002232 


005010 






622 


002234 


005011 






623 


002236 


010037 


001122 




624 










625 


002242 


012737 


100700 


001124 


626 


002250 


112760 


000001 


000001 


627 


002256 


011015 






628 


002260 


042715 


000007 




629 


002264 


023715 


001124 




630 


002270 


001401 






631 


002272 


104002 






632 


002274 


010137 


001122 




633 


002300 


012737 


000200 


001124 


634 


002306 


011115 






635 


002310 


042715 


000007 




636 


002314 


023715 


001124 




637 


002320 


001401 






638 


002322 


104002 






639 


002324 


010037 


001122 




640 


002330 


012737 


100300 


001124 


641 


002336 


105060 


000001 




642 


002342 


011015 






64 3 


002344 


042715 


000007 




644 


002350 


023715 


001124 




645 


002354 


001401 






646 


002356 


104002 






64 7 


002360 


012737 


000300 


001124 


648 


002366 


112761 


000001 


000001 


649 


002374 


011015 






650 


002376 


042715 


0OOO07 




651 


002402 


023715 


001124 




652 


002406 


001401 






653 


002410 


104002 






654 










655 


002412 


000004 






656 


002414 


00473/ 


013164 




657 


002420 


013700 


001342 




658 


002424 


013701 


001352 




659 


002430 


112761 


000001 


000001 


660 


002436 


010037 


001122 




661 


002442 


012737 


001300 


001124 


662 


002450 


012710 


001000 




063 


002454 


011015 







BR 1* j TRY NEXT 

2$: CMP CSP)»,(SP)» i FIX STACK SINCE: NO 

ERROR* 1 {BUS AORS INDICATED 

3$: MOV OERRVEC*2,a0ERRVEC {RESTORE LOC 4 



RTI 
DID 



NOT RESPOND 



♦TEST 2 

; ********.**** 

TST2: SCOPE 
MOV 
MOV 
CLR 

CI R 

MOV 



100$; 



15 s 



2$} 



MOV 

MOVB 

MOV 

Bin 

CMP 

BEQ 

ERROR* 

MOV 

MOV 

MOV 

BIC 

CMP 

BEQ 

ERROR* 

MOV 

MOV 

CLRB 

MOV 

DIC 

CMP 

BEQ 

ERROR* 

MOV 

MOVB 

MOV 

BIC 

CMP 

BEQ 

ERROR* 



A************************************************** 
TEST C5RA W/R DIP BIT, INI, CHIP RESET STATUS 

*************************************************** 

DRCSA.RO {GET CSR ADDRESS 
URCSC.R1 {STORE CSRC ADDRESS 
(RO) jINIT CSRA 

(R.O jINIT CSRC 

RO,$BDADR {STORE CSR ADDRESS 

{SET UP EXPECTED DATA 
*RDY!DIR!BIT7!BIT6.$GDDAT 



$flITO,l(RO) 

CR0),(R5) 

*7,CR5) 

• GDDAT.CRIO 

100$ 

2 

Rl.tBDADR 

*BIT7,$GDDAT 

CRD.CR5) 
07, (R5) 

IGDDAT.CR5) 

1$ 

2 

RO.tBDADR 



{SET DIRECTION BIT 

sGET CSR DATA 

{CLEAR UNDEFINED BITS 



{CSRA ERROR 

; STORE CSRC ADDRESS 

jSTORE EXPECTED 

{STORE CSRC 

{CLEAR UNDEFINED BITS 



;CSRC ERROR 

,CSRA ADDRESS 
*RDY!BIT7!BIT6,$GDDAT 
KRO) {CLEAR CSRA DIR BIT 

(RO),(RS) {READ CSR 
*7.(R5) jCLEAR UNDEFINED BITS 

IG0DAT.CR5) 

2* i {BR IF EQUAL 

2 

*6IT7!BIT6,$GDDAT 

•BITO.KRl) {CSRC TO OUTPUT MODE 

CR0),(R5) {READ CSRA 

v7 (R5) {CLEAR UNOEFINED BITS 

*GDDAT,(R5) {CHECK IF «DY BIT CLEARED 

TST3 { jBR IF EQUAL 

2 {CSRA REG ERROR 



j****+*#*+*************************#**************************** 

♦TEST 3 TEST CSRA INT. ENABLE BIT 

TST3: SCOPE 

JSR PC.CLRCSR {CLEAR CSR REGISTER 

MOV DRCSA.RO {GET CS3A ADDRESS 

MOV DRCSC.R1 {GET CSRC ADDRESS 

MOVB •BITO.KRL) |S» : .T L- SECTION BIT CSRC 

MOV RO.JBDADR ORE l SRA ADDRESS 

MOV 0BIT9JBIT7IBIT6, iGDDAT 

MOV OIE.(RO) ,SET INTERRUPT ENABLE BIT 

MOV (R0),(R5) 



CVDRCC DRV11J DTAG TSl PRT1 MACRO M1200 2? DF.C-83 09-55 PA'Jc. II 5 
TS TEST CSRA INT. ENABLE BIT 



SEQ 0022 



664 
6(>5 
666 
667 
668 
669 
670 
f/1 
6^2 
673 
674 
675 
676 



677 
678 
679 
680 
681 
662 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 



698 
699 
700 
701 
^02 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 



002456 
002462 
002466 
0024 70 
0024 72 
002500 
002504 
002506 
002512 
002516 
002520 



002522 
002524 
002530 
002534 
002540 
002546 

002554 
002556 
002562 
002566 
002570 
002572 
002600 
002602 
002604 
002610 
002614 
002616 



002620 
002622 
002026 
002632 
002636 
002642 
002650 
002656 
002660 
002664 
002666 
002670 
002674 
002700 
002702 
002706 
002710 
Q02712 



042715 
023715 
001401 
104002 
012/37 
105060 
011015 
042715 
023715 
001401 
104002 



000004 
004737 
013700 
010037 
012737 
112760 

011015 
042715 
023715 
001401 
104002 
012737 
005010 
011015 
042715 
023715 
001401 
104002 



000004 
004737 
013700 
013701 
010037 
012737 
112760 
011015 
023715 
001401 
104002 
010137 
005C37 
011115 
023715 
001401 
104002 
010057 



00000/ 
00U24 



000300 
000001 

000007 
003 124 



{CLEAR UNDEFINED BITS 



013164 
001342 
001122 
101700 
000003 



000007 
001124 



013164 
001346 
001356 
001122 
100400 
000001 

001124 



001122 
001124 

001124 



001122 



001124 1$ 



001124 

000001 



100300 001124 1$ 



000007 
001124 



BIC ff/,(RS) 

CMP *GDDAT,(R5) 

BEQ 1$ 

ERROR * 2 | INT. ENABLE ERROR, CSRA 

MOV 4BIT7!BIT6,$GDDAT 

CURB KRO) jCl.FAR I/F BIT 

MOV (R0),CR5) 

BIC >>7.(RS) {CLEAR UNDEFINED BITS 

CMP *GDDAT,(R5) 

BEQ TST4 ;,BR IF EQUAL 

ERROR* 2 {CSRA ERROR 

♦ TEST 4 TEST CSRA I/F..DIR BIT 

• ******,***********£*>******************************************* 

TST4j SCOPL 

JSR PC.CLRCSR {CLEAR CSR REGISTERS 

MOV DRCSA.RO {GET CSRA ADDRESS 

MOV RO.JBDADR {SAVE CSRA ADDRESS 

MOV 4101700. $GDDAT {EXPECTED I/E.DIR 

MOVB OfllTl.'BITO.lCRO) 

{SET I/E AND DIR BIT 

MOV (R0).(R5) 

r-JIC 07.CR5) {CLEAR UNDEFINED BITS 

CMP •GDDAT.CM5) 

BEQ 1$ 

ERROR* 2 jCSRA ERROR 

MOV 0«DY!BIT7!BIT6,$GDDAT 

CLR CRO) 

MOV CR0),(R5) 

BIC 07.CR5) {CLEAR UNDEFINED BITS 

CMP $G0DAT,(R5) 

BEQ TST5 ;;BR IF EQUAL 

ERROR* 2 jCSRA ERROR 



. . ************* 
{♦TEST 5 

• • ************* 

TST5: SCOPE 
JSR 
MOV 
MOV 
MOV 
001124 MOV 

000001 MOVE 

MOV 
CMP 
BEQ 
ERROR* 

100$ : MOV 
CLR 
MOV 
CMP 
BEQ 
ERROR* 

1 i : MOV 



************************************************** 

TEST CSRB U/R DIR BIT. INT CHIP RESET STATUS 
************************************ ************** 



PC.CLRCSR 

DRCSB.RO 

DRCSD.R1 

RO, IBOADR 

ORDYIDIR, IGODAT 

4BIT0.1CR0) 

(R0),CR5) 

$GD0AT,CR5) 

100$ 

2 

R1.IBDADR 

IGODAT 

(Rl),(R5:i 

IGDDAT.CR5) 

il 

2 

RO,$BDADR 



{CLEAR CSR REGISTERS 
{GET CSR ADDRESS 
{GET CSRD ADDRESS 
{STORE CSR ADORESS 
{SET UP EXPECTED DATA 
{SET DIRECTION BIT 
{GET CSRB DATA 



{CSRB ERROR 
{STORE CSRD AODRESS 
{STORE EXPECTED 
{READ CSRD 



sCSRD ERROR 

{STORE CSRB ADDRESS 



CVDRCC DRVU.J DIAG TS? h RT 1 MACRO M1200 ."■» / DFC-83 09 : 55 PAGE 11 4 
Tb TEST CSRB W/R DIR GIT, INT CHIP RE5E1 STATUS 



SEQ 00*3 



715 002716 


C12737 


100000 


001124 


716 002724 


105060 


000001 




71? 002730 


011015 






718 002732 


023715 


001124 




719 002736 


001401 






720 002740 


104002 






721 002 ?42 


005037 


001124 




."22 002746 


112761 


000001 


000001 


^23 002754 


011015 






724 002756 


023715 


001124 




725 002762 


001401 






726 002764 

727 

728 


104002 












002766 


000004 






729 002770 


004737 


013164 




730 002774 


013700 


001352 




731 003000 


013701 


001342 




732 003004 


010037 


00U22 




733 003010 


012737 


100600 


001124 


734 003016 


112760 


000001 


000001 


735 003024 


011015 






736 003026 


^715 


000007 




737 003032 


Oc ,715 


001124 




738 003036 


001401 






739 003040 


104002 






740 003042 


010137 


001122 




741 003046 


012737 


000300 


001124 


742 003054 


011115 






74 J 003056 


042715 


000007 




744 003062 


023715 


001124 




745 003066 


001401 






746 005070 


104002 






74 7 003072 


010037 


001122 




748 003076 


012737 


100200 


001124 


749 003104 


105060 


000001 




750 003110 


011015 






751 003112 


042715 


000007 




752 003116 


023715 


001124 




753 003122 


001401 






754 003124 


104002 






755 003126 


012737 


000200 


001124 


756 003134 


112761 


000001 


000001 


757 003142 


011015 






758 003144 


042715 


OOOOO 7 




759 003150 


023715 


001124 




760 003154 


001401 






761 003156 


104002 






762 








763 








003160 


000004 






764 003162 


004737 


013164 




765 003166 


0X3700 


<W1356 





2§ 



MOV 


4RD*,$GDDAT 


;STORE EXPECTED 


CLRB 


KttO) 


jCi FAR CSR DIR BIT 


MOV 


(R0),(R5> 


{READ CSR 


CMP 


$GDDAT,(R5) 




BEQ 


2$ 


{{BR IF EQUAL 


ERROR* 


2 




CLR 


$GDDAT 


{STORE EXPECTED 


MOVB 


ftBITO.lCRl) 


iCSRD TO OUTPUT MODE 


MOV 


CR0).(R5) 


;READ CSRB 


CMP 


$GDDAT,(R5) 


;RDY BIT CLEARED 


BEQ 


TST6 


; ;BR IE EQUAL 


ERROR* 


2 


{CSRB REG ERROR 



***<,*.*.***** 



*TF 



hi 



*/ A **.****** 



TSTt 



100$ 



1$ 



2$ 



SCOPE 
JSR 

MOV 

MOV 
MOV 
MOV 

Move 

NOV 

SIC 

CMP 

BEQ 

ERROR 

MOV 

MOV 

MOV 

BIC 

CMP 

BEQ 

ERROR 

MOV 

MOV 

CLR3 

MOV 

BIC 

CMP 

BEQ 

ERROR 

MOV 

MOVB 

MOV 

BIC 

CMP 

BEQ 

ERROR 



TEST CSRC W/R DIR BIT, INT CHIP RESET STATUS 

PC.CLR^SR {CLEAR CSR REGISTERS 
DRCSC.RO {GET CSR ADDRESS 
DRC5A.R1 ,GET CSRA ADDRESS 
RO.*BDADR {STORE CSR ADDRESS 
*ttDY!DIR!BIT7,$GDDAT 



♦BITO.KRO) 

cro),cr:o 

*7,(R5) 

*GDDAT,(R5) 

100$ 

2 

R1,$BDADR 



;SET DIRECTION BIT 

{GET CSR DATA 

{CLEAR UNDEFINED BITS 



STORE CSR 



ADDRESS 



*eiT7!BIT6,$GDDAT 

CR1),(R5) sREAD CSRA 

*7, (R5) {CLEAR UNDEFINED 

iGDDAT,(R5) 



BIT 



1$ 



RO,iBDADR 

*RDY!BIT7 

1CR0) 

(R0),(R5) 

07.CR5) 

$GDDAT,(R5) 

2$ 

2 

*eiT7,*GDDAT 

oeiTO.URl) 

(R0),CR5) 

*7,(R5) 

•G00AT.CR5) 

TST7 

2 



{CHECK CSRA 
j CSRA ERROR 
{STORE CSR ADDRESS 
*GDDAT{STORE EXPECTED DATA 
{CLEAR CSR DIR BIT 
{READ CSR 
{CLEAR UNDEFINED BITS 



j {BR IF EQUAL 

{EXPECTED DATA 
{CSRA TO OUTPUT MODE 



{READ CSRC 
{CLEAR UNDEFINED 
jRD. BIT CLEARED 
j {BR IF EQUAL 
{CSRC REG ERROR 



BITS 



♦TEST 7 TEST CSRD W/R DIR BIT, INT CHIP RESET STATUS 

TST7; SCO?E 

JSR PC.CLRCSR jCLEAR CSR REGISTERS 

MOV ORCSD*RO jGE.1 CSR ADDRESS 



CVDRCC DRVIU DIAG TST PRT 1 MACRO M1200 ?.? Df-C -83 09:55 PAGE 11-5 
T7 TEST CSRD W/R DIR DIT.INT CHIP RESET STATUS 



SEG 00*4 



766 

vt ; 

769 
7 7C 
771 

ns 

7 74 
775 
776 
777 
778 
7 79 
780 
781 
782 
78o 
784 
785 
786 
787 
788 
789 
790 
791 
792 
79^ 
7 94 



003172 
003176 
003202 
00321C 
003216 
003220 
003224 
003226 
003230 
003234 
003240 
003242 
003246 
00325G 
003252 
003256 
003264 
003270 
003272 
003276 
003300 
003302 
003306 
003314 
003316 
003322 
003324 



003326 

795 003330 

796 003334 

797 003340 

798 005346 

799 003352 

800 003356 

801 003362 

802 003370 

803 003374 
604 003376 

805 003400 

806 003402 
80/ 003406 
808 003410 
009 003412 

810 003414 

811 003420 
812 

813 



003422 
814 003424 
85.5 003430 
£16 003434 



013701 
010037 
0*2737 
112760 
011015 
023715 

r; :.4m 
1040V,; * 

010137 
005037 
011115 
023715 
001401 
104002 
010037 
012737 
105060 
011015 
023715 
001401 
104002 
005037 
112761 
011015 
023715 
001401 
104002 



000004 
004737 
012703 
012737 
013700 
013/01 
010.U*7 
1127S0 
011337 
005011 
051311 
011115 
023715 
0C1401 
104002 
005723 
020327 
001363 



000004 
004737 
012703 
012737 



001346 MOV 

001122 MOV 

100400 001124 MOV 

000001 000001 MOVB 

MOV 
001124 CMP 

BEQ 
ERROR ♦ 
001122 100$: MOV 

001124 CLR 

MOV 
001 124 CMP 

BEQ 
ERROR* 
001122 1$: MOV 

100000 001124 MOV 

000001 CLRB 

MOV 
001124 CMP 

BEQ 

ERROR f 
2$: CLR 
MOVB 
MOV 
CMP 
BEQ 
ERRURt 



001124 

000001 000001 

001124 



013164 
013272 
003370 
001342 
001344 
001122 
000001 
001124 



001124 



013572 



DRCSB.R1 
RO.JBDADR 
*RDr!DIN,$GDDAT 
OBITO.ICRO) 

CR0),CR5) 

$G0DAT,CR5^ 

100$ 

2 

Ri,$BDADR 

SGDDAT 

CRD.CR5) 

*GDDAT,CR5) 

1$ 

2 

RO,JBDADR 

*RDY,$GDDAT 

KRO) 

(R0).(R5) 

»GUDAT,(R5) 

2* 

2 

IGDDAT 

0BIT0.1CR1) 

(R0),(R5) 

*GDDAT,(R5) 

TST10 

2 



jCSRB ADDRESS 
{STORE CSR 
iSET UP EXPECTED DATA 
l SET DIRECTION BIT 
;GET CSR DATA 



: STORE CSRB ADDRESS 
jSTORE EXPECTED 



{CSRB ERROR 
} STORE CSRD ADDRESS 
{STORE EXPECTED 
;CLEAR CSR DIR BIT 
{READ CSR 

; tBR IE EQUAL 

{EXPECTED 

;CSRD TO OUTPUT MODE 

{READ CSR 

{ROY BIT CLEARED 

;;BR IF EQUAL 

;CSRD REG ERROR 



{ ; *********** 

s+TEST 10 

; j ************ 

TST10; SCOPE 
JSR 
MOV 
001110 MOV 

MOV 
MOV 
MOV 
000001 MOVd 

1$: MOV 
CLR 
BIS 
MOV 
CMP 
BEQ 
ERROR ♦ 

2$: TST 
CMP 
BNE 



**************** 

TEST OBRA W/R 

**************** 

PC.CLRCSR 
$8EGPAT t R3 
*ll. JLPERR 
DRCSA.RO 

URDBA.R1 

R1.IB0A0R 

#Bx'. r n,i(R0) 

(R3),$GDnAT 

(R; ) 

(R- ),(R1) 

(Rl ),(R5) 

iGDDAT,(R5) 

2$ 

2 

CR3)* 

R3.4ENDDAT 

1$ 



*********************************** 

IN OUTPUT MODE 

*********************************** 

{CLEAR ALL CSRS 

;GET DATA PATTERN TABLE 

;SET UP SCOPE ADDRESS 

{GET CSRA 

{GET DBRA ADDRESS 

{STORE DBRA ADDRESS 

{SET CSRA IN OUTPUT MODE 

{SAVE EXPECTED DATA 

{CLEAR DBRA 

•WRITE INTO DBRA 

{READ OBRA 

{CHECK W/R DtiRA 

{NEXT PAT, IF EQUAL 

{DBRA U/R ERROR 

i INC FOR NEXT PATTERN 

{CHECK FOR END 

jDO NEXT PATTERN 



013164 
013272 
003464 



001110 



j.***********************************************^**.************ 
{♦TEST 11 TEST DBRB U/R IN OUTPUT MODE 

j j*********** ********************* * ***************** ************* 

TSUI; SCOPE 

JSR PC.CLRCSR {CLEAR ALL CSRS 

MOV *BEGPAT,R3 {GET DATA PATTERN TABLE 

MOV <>1$,$LPERR {SET UP SCOPE ADDRESS 



M. ' 

CVDKCC DRV11J DI.AG TST PRU MACRO M1200 2/ UPC -83 09:55 PAGE-. 11 -b 
TH TEST DBRB W/R TN OUTPUT MODF 



SEQ 0025 



817 

eia 

8t9 
820 
821 
822 
823 
824 
825 
826 
82/ 
828 
829 
830 
831 
832 
833 



834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
84 7 
848 
849 
850 
851 
852 
853 



854 
855 
656 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 



003442 
003446 
003452 
003456 
003464 
0034 70 
0034 72 
003474 
0034 76 
003502 
003504 
003506 
003510 
003514 



003516 
003520 
003524 
003530 
003536 
003542 
003546 
003552 
003560 
003564 
003566 
003570 
003572 
003576 
003600 
003602 
003604 
0036 iO 



003612 
003614 
003620 
003624 
003632 
003636 
003642 
0O3646 
003654 
00^660 
003662 
003664 
003666 
003672 
003674 



013700 
013701 
010137 
112760 
011337 
005011 

osi.ui 

011115 
023715 
001401 
104002 
005723 
020327 
001363 



00000' 

004737 

012703 

012737 

013700 

013701 

010137 

112760 

011337 

005011 

051311 

011115 

023715 

001401 

104002 

005723 

020327 

001363 



000004 
004737 
012703 
012737 
013700 
013701 
010137 
112760 
Oil ,37 
005)11 
051311 
011115 
023715 
001401 
104002 



001346 
001350 
001122 
0000C1 
001124 



001124 



013572 



013164 
013272 
00S560 
001352 
001354 
001122 
000001 
001124 



001124 



013572 



013164 
013272 
003654 
001356 
001360 
001122 
000001 
001124 



001124 



000001 



1% 



MOV 


DRCSB.RO 


MOV 


DRDBB.R1 


MOV 


R1.IBDADR 


MOVB 


^niTO.l(RO) 


MOV 


CH3),$GDPAT 


Ci.R 


(Rl) 


BIS 


(R3),(R1) 


MOV 


(R1),CR5) 


Chr"- 


*GDDAT,(R5) 


BEQ 


2* 


ERROR* 


2 


TST 


(R3)* 


CMP 


R3,tfENDDAT 


BNE 


1$ 



2$ 



;*************************** 

♦TEST 12 TEST OBRC U/R 

; *************************** 

TST12; SCOPE 



001110 



J00001 



1$ 



JSR 


PC.CLRCSR 


MOV 


*6EGPAT,R3 


MOV 


<UI,iLPERR 


MOV 


DPCSC.RO 


MOV 


DRDBC.m 


MOV 


R1.IBDADR 


MOVB 


OBITO.KRO) 


MOV 


CR3),$GDDAT 


CLR 


CR1) 


BIS 


CR3),(Rn 


MOV 


CR1),(R5) 


CMP 


IGDDAT.CR5) 


BEQ 


2$ 


ERROR* 


2 


TST 


(R3)« 


CMP 


R3.4ENDDAT 


BNE 


1$ 



2$ 



;*************************** 

♦TEST 13 TEST DBRO U/R 

;****************«********** 

TST13: SCOPE 



001110 



000001 



1$ 



JSR 


PC.CLRCSR 


MOV 


06EGPAT.R3 


MOV 


OU.ILPERR 


MOV 


DRCSD.RO 


MOV 


DRDBD.R1 


MOV 


Rl, tBDADR 


MOVB 


♦81T0.KR0) 


MOV 


CR3),$GDDAT 


CLR 


(Rl) 


BIS 


(R3),(R1) 


MOV 


(R1),CR5) 


CMP 


*GDDAT,(R5) 


BL'Q 


2? 


ERROR* 


2 



GET CSR9 

GET DBRB ADDRESS 

STORE DBRB ADDRESS 

SET CSRB IN OUTPUT MODE 

SAVE EXPECTED DATA 

CLEAR DBRB 

WRITE INTO DBRB 

READ DBRB 

CHECK W/R DBRB 

NEXT PAT. IF EQUAL 

DBRB W/R ERROR 

INC FOR NEXT PATTERN 

CHECK fOR END 

DO NEXT PAMY.RN 



************************************ 

IN OUTPUT MODE 
J************************************ 



j clear all csrs 

GET DATA PATTERN TABLE 
SET UP SCOPE ADDRESS 
GET CSRC 

GET DBRC ADDRESS 
STORE DBRC ADDRESS 
SET CSRC IN OUTPUT MODE 
SAVE EXPECTED DATA 
CLEAR DBRC 
WRITE INTO DBRC 
READ DBRC 
CHECK W/R DBRC 
NEXT PAT. IF EQUAL 
DBRC W/R ERROR 
INC FOR NEXT PATTERN 
CHECK FOR END 
jDO NEXT PATTERN 



************************************ 

IN OUTPUT MODE 
************************************ 



CLEAR ALL CSRS 

GET DATA PATTERN TABLE 

SET UP SCOPE ADDRESS 

GET CSRD 

GET DBRD ADDRESS 

STORE DBRD ADDRESS 

SET CSRD IN OUTPUT MODE 

SAVE EXPECTED DATA 

CLEAR DBRO 

WRITE INTO DBRD 

READ DBRD 

CHECK W/R DBRD 

NEXT PAT. IF EQUAL 

DBRD W/R ERROR 



CVDRCC DHV11J DTAG TST PRT1 MACRO M1POO 

T13 TFT>T DBRD W/R IN OUTPUT MODE 

868 003t. .o 005 7?3 L >$ j 

869 003700 0P.0S27 01357^ 

870 003704 001363 



?.? DFC-83 09:5S 



N, : 

PACK 11 7 



SEU 00*6 



CMP 



CR3)* 

M5,#EN0DAT 

1$ 



INC f"0» NEXT PATTERN 
CHECK KOH END 
DO NEXT PATTERN 



cvdrcc rmviu oiAr, tst prti macro M1200 

T13 TEST DBRD W/R IN OUTPUT MODF 



, J 7 DEC -83 09 j 55 PAGE 1«' J 



SEQ 00*7 



872 
8 74 



875 

a// 

878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 



003706 

oos-'io 



003714 
003722 
003730 
003734 
003742 
003744 
003750 
003754 
003756 
003760 
003764 
003770 
003772 
003776 
004000 
004002 
004006 
004014 
004016 
004022 
004024 
004026 
004032 
004040 
004042 
004046 
004052 
004054 



004056 
910 004060 
911 
912 
913 
914 

915 004064 

916 004072 

917 004100 

918 004104 

919 004112 

920 004U4 

921 OO4120 

922 004124 



000004 
004737 



112760 
112763 
010037 
012737 
011015 
042715 
023715 
001401 
104002 
010137 
005037 
011115 
023715 
001401 
104002 
010337 
012737 
011315 
023715 
001401 
104002 
010237 
012737 
011215 
042715 
023715 
001401 
104002 



112760 
112761 
010037 
012737 
011015 
042715 
023715 
001400 



013164 



0OO003 
00000 X 
001122 
101700 

000007 
001124 



001122 
001124 

001124 



001122 
100400 

001124 



001122 
000200 

000007 

001124 



0O0004 

004737 013164 



000003 
000001 

001122 
101700 

00000? 
001124 



l*TEST 14 



TEST CSR UNIQUENESS, CSRS (A-Bj.CC D 



TST14; 



000001 
000001 

001124 



15: 



001124 



2i: 



001124 



3*: 



SCOPE 

JSR PC.CLRCSR 



MOVB 03.KRO) 

MOVB *eiT0,l(R3) 

MOV RO.JBDADR 

MOV 0101700, ICiDDAT 

MOV CR0),CR5) 

BIC 07. (R5) 

CMP IGDDAT, (R5) 

BEQ 1$ 

ERROR* 2 

MOV Rl.tBOADR 

CLR IGDDAT 

MOV (R1),(R5) 

CMP $G00AT,(R5) 

BEQ 2$ 

ERROR* 2 

MOV R3.IBDADR 

MOV 0100400, IGDDAT 

MOV (R3),CR5) 

CMP IGDDAT, (R5) 

BEQ 3$ 

ERROR* 2 

MOV R2.IBDADR 

MOV 0BIT7, IGDDAT 

MOV (R2),(R5) 

BIC 07, (R5) 

CMP IGD0AT.CR5) 

BEQ TST15 

ERROR ♦ 2 



iCLLAR 

jC^RA 

iCSRB 

iCSRC 

jCSRO 

»CSRA 

tCSRD 



Al I. 

- RO 
* Rl 

- R2 
» R3 
OUTPUT 
OUTPUT 



CSRS 



MODE, I /t 
MODE 



lEXPECTED DATA 

iCLEAR UNDEFINED BITS 



,CSRA ERROR 
j CHECK CSRB 



jCSRB ERROR 



;CSRD E3R0R 
iCMECK CSRC 
lEXPECTED 



i i BR IF EQUAL 
I CSRC ERROR 



(♦TEST 
i »♦••• 

TST15: 



15 



TEST CSR UNIQUENESS, CSRS CA-O).(C-B) 



** 



000001 
000001 

001124 



SCOPE 

JSR 



MOVB 

MOVB 

MOV 

MOV 

MOV 

BIC 

CMP 

BEQ 



PC.CLRCSR 



03.KR0) 
oeiTO.lCRl) 
RO.IBOADR 
0101700, IGDDAT 
(R0),(R5) 
07. (R5) 
IGDDAT .(RS) 
II 



iCLR ALL CSRS 
jCSRA • RO 
iCSRB • Rl 
j CSRC • R2 
iCSRD • R3 
iCSRA OUTPUT, I/E 
iCSRB OUTPUT MODE 
iCSRA ADDRESS 

I CLEAR UNDEFIN&Q &XTS 



CVDRCC I1RVUJ DIAi; TS1 PRTl MACRO MU*00 *>l DEC -83 09-55 PAGE 1? 1 
T15 TEST CSR UNIQUENESS .CSRS (A D "> , ( C H) 



SEQ 00 >^ 



923 

925 
926 
927 
926 
929 
^>30 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
94^ 
943 
944 



945 
94 b 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 



004126 
004132 
004140 
004142 
004146 
004150 
004152 
004156 
004164 
004166 
0O4172 
004176 
004200 
004202 
004206 
004212 
004214 
00422C 
004222 



004224 
004226 
004232 
004236 
004244 
004250 
004254 
004260 
0O4266 
004272 
004276 
004302 
004310 
004314 
004320 

004326 
004330 
0O4334 
004340 
004342 
004 344 
004352 
004356 
004360 
004364 
004370 
004372 
004374 
004402 
004406 
OO4410 
004414 



010137 
012737 
011115 
023715 
001401 
104002 
010237 
012737 
011215 
042715 
023715 
001401 
104002 
010337 
005037 
011315 
023715 
001401 
104002 



000004 
004737 
012703 
012737 
013700 
013701 
013702 
112762 
010037 
005062 
105061 
112760 
011360 
016104 
012737 

011015 
042715 
023715 
001401 
104002 
012737 
010137 
011115 
042715 
023715 
001401 
104002 
013737 
011337 
0X0415 
023715 
001401 



001122 
100400 

001124 



001122 
000200 

000007 
001124 



001122 
001124 

001124 



013164 
013272 
004266 
001342 
001352 
001346 
000001 
001122 
000002 
000001 
000001 
000002 
000002 
100700 



000007 
001124 



000200 
001122 

000007 
001124 



001554 
001124 

001124 



001124 



001124 



IS: MOV Ri.lBDADR 

MOV 0100400, IGDDAT 

MOV (R1),CR5> 

CMP *GDDAT,(R5) 

BEQ 2$ 

ERROR* 2 

2Sj MOV R2,tBDA0R 

MOV *6IT7,tGDUA7 

MOV CR2).(R5) 

BIC *7 f (R5) 

CMP IGDDAT.CR5) 

BEQ 3* 

ERROR ♦ 2 

3*: MOV R3.IBDADR 

CLR tGOOAT 

MOV CR3),(R5) 

CMP $G00AT,(R5) 

BEQ TST16 

ERROR* 2 



I CHECK CSRfcJ 



iCSPB LRROR 
I CHECK C r )RC 



jCSRC ERROR 



j j BR IF EQUAL 
jCSRD ERROR 



j*TEST 16 



TEST PORT A TO PORT C INTERACTION 



t 



TST16 



001110 

000001 

000001 
001124 



1$; 



001124 100*: 



001122 1011 1 



SCOPE 




J5R 


PCCLRCSR 


MOV 


*BEGPAT,R3 


MOV 


♦ H.ILPERR 


MOV 


DRCSA.RO 


MOV 


DRCSC.R1 


MOV 


DRCSB.R2 


MOVB 


#eiT0,HR2) 


MOV 


RO.IBDADR 


CLR 


2(R2) 


CLRB 


HR15 


MOVB 


•6IT0.KR0) 


MOV 


CR3),2(RO) 


MOV 


2(R1),R4 


MOV 


*RDY!DIR!BIT7 


MOV 


CR0).CR5) 


BIC 


*7,(R5) 


CMP 


IGO0AT,(R5) 


BEQ 


100$ 


ERROR* 


2 


MOV 


*eiT7,IG0DAT 


MOV 


RI.IBOAOR 


MOV 


(Rl).(NS) 


BIC 


*7,(R5) 


CMP 


•GD0AT.CR5) 


BEQ 


101$ 


ERROR* 


2 


MOV 


DR06C.IBDA0R 


MOV 


CR3),IG0DAT 


MOV 


R4.CR5) 


CMP 


• GOOAT.CR^ 


BEQ 


a* 



jCLEAR ALL CSRS 
iGET DATA PATTERN TABLE 
,SET UP SCOPE AOORESS 
iGET PORT A # CSRA ADDRESS 
jGET PORT C. CSRC ADDRESS 
1CSR8 AOORESS 
I CSRS IN OUTPUT MODE, 
i STORE CSRA AOORESS 
iCLEAR 06*8 

jPORT C, CSRC, INPUT MOOE 
i SET CSRA IN OUTPUT MOOE 
jURITE INTO DBRA 
tREAO OBRC 
!BIT6,$G0DAT 

;CSRA DIR SHOULD STAY SET 

jREAD CSRA 

jCLEAR IWOEEINED BITS 



iCSRA ERROR 

»CSRC ADDRESS 

jREAD CSRC 

»CLEAR UNOEFINED BITS 



iCSRC ERROR 

j STORE D6RC ADDRESS 

jSAVE EXPECTED 

jDBRC CONTENTS 

I CHECK PORT C.DBRC 

iBEQ TO NEXT SUBTEST 



CVDRCC WVIi.l D1AG TS* PRT1 MACRO M1?00 ;»/ OFC 83 O^iSfi PAGE 12 2 

T16 Te.ST PORT A TO PORT C INTERACTION 



SEQ 0029 



977 
978 
979 
980 
981 
982 
985 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 



1000 
1001 
1002 
IOCS 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 



004416 
004420 

004424 
004432 
004440 
004444 
004452 
004456 
004462 
004464 
004466 
004474 
004500 
004504 
0O4510 
004512 
0O4514 
004516 
004522 



0O4524 
0O4526 
004532 
0O4536 
004544 
0O455O 
0O4554 
0O4560 
0O4566 
004572 
0O4576 
004602 
OO4M0 
004614 
0O4620 
004626 
0O4630 
0O4634 
004636 
004640 
0O4644 
004650 
004652 
0O4656 
004660 
0O4662 
004670 
004674 
0O4676 
004 702 
0O4 704 
004706 



104002 
005137 

013737 
013761 
105060 
112761 
016015 
023715 
001401 
104002 
013737 
005037 
016215 
023715 
001401 
104002 
005723 
020327 
001261 



000004 
004737 
012703 
012737 
013700 
013701 
013702 
112762 
010037 
005062 
105061 
112760 
011360 
016104 
012737 
011015 
023715 
001401 
104002 
005O37 
010137 
011115 
023715 
001401 
104002 
013737 
011337 
010415 
023715 
001401 
104002 
005137 



001124 

001344 
001124 
000001 
000001 
000002 
001124 



001350 
001124 
000002 
001124 



013572 



001122 
000002 

000001 



2$; 

3$! 



001122 4$: 



5$: 



ERROR* 

COM 

MOV 

MOV 

CI RB 

MOVB 

MOV 

CMP 

BEG 

ERROR* 

MOV 

CLR 

MOV 

CMP 

BEQ 

ERROR f 

TST 

CMP 

BNE 



5GDDAT 

DRDBA.IBDADR 
$GDDAT,2(R1) 
KRO) 
OBITO.KRn 

2(R0V;R5) 

IGDDAT.CR5) 

41 

2 

DRDBB,$BDADR 

$GDDAT 

2(R2),(R5) 

*GD0AT,(R5) 

5$ 

2 

CR3)* 

R3.0ENDDAT 

1$ 



OBRC REG ERROR 

SET UP TO WRITE COM DATA f ROM 

PORT C TO PORT A 

STORE DBRA ADDRESS 

WRITE PORT C, INPUT MOOF 

MAKE PORT A INPUT MODE 

MAKE PORT C OUTPUT MODF 

READ PORT A, DBRA 

PORT A -PORT C? 

CHECK DBRB FOR NO DATA CHANGE 

PORT A.DORA REG ERROR 

STORE DBRB ADDRESS 

CONTENTS SHOULD STAr ZERO 

READ DBRB FOR CLEAR 

CHECK FOR DBRB CLEAR 

YES, CONTINUE 

DBRB INTERACTION ERROR 

INC FOR NEXT PATTERN 

CHECK FOR F.NO 

DO NEXT PATTERN 



013164 

013272 

004566 001110 

001346 

001356 

001342 

000001 000001 

001122 

000002 

000001 

000001 000001 

00O0O2 

000002 

100400 001124 

001124 



001124 
001122 

001124 



001360 001122 
001124 

001124 



j ;♦♦♦♦ 

;*Tr;ST 
* ***** 

TST17: 



Lti 



100$ t 



101$; 



001124 



2$s 



17 

******* 

SCOPE 

JSR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

MOV 

CLR 

CLRB 

MOVB 

MOV 

MOV 

MOV 

MOV 

CMP 

BEQ 

ERROR 

CLR 

MOV 

MOV 

CMP 

BEQ 

ERROR 

MOV 

MOV 

MOV 

CMP 

BEQ 

ERROR 

COM 



TEST PORT B TO PORT D INTERACTION 



PC.CLRCSR 

*6EGPAT,R3 

♦1I.ILPERR 

DRCSB.RO 

DRCSD.R1 

DRCSA.R2 

*eiToa(R2) 

RO.IBDADR 

2CR2) 

KR1) 

O6IT0,l(R0) 

(R5) # ?(R0) 

2CRD.R4 

*RDY!DIR,$GDDAY 

(R0),CR5) 

IG0DAT.CR5) 

100$ 

• CiOOAT 

Rl, IBDADR 

(RD.CR5) 

IGDDAT,(R5) 

101$ 

2 

DR06D.IBDADR 

(R3),$G0DAT 

R4,(R5) 

$GDDAT,I.R5) 

2$ 

2 

$GDDAT 



CLEAR ALL CSRS 

GET DATA PATTERN TABLF 

SET UP SCOPE ADORE SS 

GET PORT B. CSRB ADDRESS 

GET PORT D, CSRO ADORESS 

STORE CSRA ADORESS 

CSRA IN OUTPUT MOOE 

STORE CSRB ADORESS 

CLEAR DBRA 

PORT D, CSRO, INPUT MODE 

SET CSRB IN OUTPUT MODE 

WRITE INTO DBRB 

DBRO CONTENTS 

SAVE EXPECTED 

READ CSRB 



CSRB ERROR 

SAVE EXPECTED 
SAVE CSRD ADDRESS 



iCSRD ERROR 

j SAVE DBRO ADORESS 

l SAVE EXPECTED 

jDBRD CONTENTS 

j CHECK PORT D.DBRO 

iBEQ TO NEXT SUBTEST 

j DBRO REG ERROR 

{SET UP TO WRITE COM D*TA FROM 



CVORCC ORV11J Dim; TST PRT1 MACRO M1200 27-DEC-83 09: l .>rj PAliF 1*? 3 
T17 TEST PORT B TO PORT D INTERACTION 



SEQ 0030 



1051 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 



1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1004 



004 712 
004 720 
004 726 
004 732 
004 740 
004 744 
004750 
004752 
004 754 
004762 
004 766 
004772 
004776 
005000 
005002 
005004 
005010 



005012 
005014 
005020 
005024 
005032 
005036 
005042 
005046 
005054 
005060 
005064 
0050 70 
0O5076 
005102 
005106 

005114 
005116 
005122 
005126 
005130 
005132 
005140 
005144 
005146 
005152 
005156 
005160 
005162 
005170 
005174 
005176 
005202 
005204 



013737 
013761 
105060 
112761 
016015 
023715 
001401 
104002 
013737 
005037 
016215 
023715 
001401 
104002 
005723 
02C32 7 
001266 



000004 
004737 
012703 
012737 
013700 
013701 
013702 
112762 
010037 
005062 
105061 
112760 
011360 
016104 
012737 

011015 
042715 
023715 
001401 
104002 
012737 
010137 
011115 
042715 
023715 
001401 
104002 
013/37 
011337 
010415 
023715 
1)01401 
104002 



001350 
001124 
000001 
000001 
000002 
001124 



001344 
001124 
000002 
001124 



013572 



013164 
013272 
005054 
001352 
001342 
001356 
OOOOOt 
001122 
000002 
000001 
0O0001 
000002 
0O0002 
100600 



000007 
001124 



0O0300 
001122 

000007 
001124 



001344 
001124 

001124 



001122 
000002 

000001 



3$: 



001122 4$ 5 



5$t 



MOV 

MOV 

CLRB 

MOVB 

MOV 

CMP 

BEQ 

ERROR f 

MOV 

Cl.R 

MOV 

CMP 

BEQ 

ERROR* 

TST 

CMP 

BNE 



DRDBB t $8DADR 

$GDDAT,2(R1) 

1CR0) 

♦BITO.KRl) 

2(R0),CR5) 

$GDDAT,(R5) 

4$ 

2 

DRDBA,$BDADR 

IGODAT 

2(RP).(R5) 

$GDDAT,(R5) 

5$ 

2 

(R3)* 

R3.0ENDDAT 

1$ 



I PORT D TO PORT B 

; STORE DBRB ADDRESS 

j WRITE PORT D, INPUT MOOR 

jMAKE PORT B INPUT MODE 

{MAKE PORT D OUTPUT MODE 

jREAD PORT B.DBRB 

i PORT B -PORT D? 

j CHECK DBRA FOR NO DATA CHANGE 

;PORT B.DBRB REG ERROR 

j STORE DBRA ADDRESS 

I CONTENTS - 

j READ DBRA FOR CLEAR 

;DBRA CLEAR? 

I YES, CONTINUE 

jDBRA INTERACTION ERROR 

I INC FOR NEXT PATTERN 

i CHECK FOR END 

jDO NEXT PATTERN 



i 



{♦TEST 

; ;* + ** 

TST20; 



001110 

000001 

000001 
001124 



1$: 



001124 100$ j 



001122 101$; 



20 

********* 

SCOPE 

JSR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

MOV 

CLR 

CLRB 

MOVB 

MOV 

MOV 

MOV 

MOV 

BIC 

CMP 

BEQ 

ERROR* 

MOV 

MOV 

MOV 

BIC 

CMP 

BEQ 

ERROR* 

MOV 

MOV 

MOV 

CMP 

BEQ 

ERROR* 



TEST PORT C TO PORT A INTERACTION 

********************* ***************************** 



PC.CLRCSR 

*6EGPAT,R3 

*1I,$LPERR 

DRCSC.RO 

DRCSA,R1 

DRCSD.R2 

4BIT0.1CR2) 

RO.IBDADR 

2(R2) 

1CR1) 

«eiTO,lCRO) 

(R3").2(R0) 

2(R1),R4 

*RDY!DIR!tUT7,»G 

(R0).(R5) 
07.CR5) 

IGDDAT.CR5) 

1C0$ 

2 

*BIT7!BIT6,$GDD/ 3 

R1.IBDADR 

CRD.CR5) 

*7,(R5^ 

$G0DAT,(R5) 

101$ 

2 

DRDBA,$BDADR 

(R3),$GDDAT 

R4,CR5) 

$GDDAT,CR5) 



j CLEAR ALL CSRS 

jGET DATA PATTERN TABLE 

tSET UP SCOPE ADORESS 

jGET PORT C, CSRC ADORESS 

I GET PORT A. CSRA ADDRESS 

i STORE CSRO ADDRESS 

jCSRD IN OUTPUT MOOE 

j STORE CSRC ADORESS 

j CLEAR D6RD 

j PORT A, CSRA .INPUT MODE 

j SET CSRC IN OUTPUT MODE 

jWRITE INTO DBRC 

I READ DBRA 

DDAT 

iCSRC DIR SHOULD BE SET 

j READ CSRC 

jCLEAR UNOEFINED BITS 



j CSRC ERROR 

T 

iCSRA ADORESS 

j READ CSRA 

jCLEAR UNDEFINED BITS 



j CSRA ERROR 

t STORE DBRA ADORESS 

{SAVE EXPECTED 

j DBRA CONTENTS 

j CHECK PORT A, DBRA 

,BEQ TO NEXT SUBTEST 

:DHRA REG ERROR 



CVDRCC DRV11J DIAG TST PRT1 MACRO M1200 ?.? DFC-83 09:5 r > PACK 12-4 
Tc'O TEST PORT C TO PORT A INTERACTION 



SEQ 0051 



1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
109b 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 



1106 
1107 
1108 
1109 

1110 

nil 
in? 

1113 

1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
U28 

A *njO 

1131 
1132 

1133 
11.34 
1135 
1136 
1137 
1133 



005206 005137 001124 



005212 
005220 
005226 
005232 
005240 
005244 
005250 
C05252 
005254 
005262 
005266 
005272 
0052 76 
005300 
005302 
005304 
005310 



005312 
005314 
005320 
005324 
005332 
005336 
005342 
005346 
005354 
005360 
005364 
005370 
005376 
005402 
005406 
005414 
005416 
005422 
005424 
005426 
005432 
0054 3C 
005440 
005444 
005446 
005450 
005456 
005462 
005464 
005470 
005472 
005474 



013737 
013761 
105060 
112761 
016015 
023715 
001401 
104002 
013737 
005037 
016215 
023715 
001401 
104002 
005723 
020327 
001261 



000004 
0O4737 
012/03 
012737 
013700 
013701 
013702 
112762 
010037 
005062 
105061 
112760 
011360 
016104 
012737 
011015 
023715 
001401 
10400; 
005037 
010137 
011)15 
023715 
001401 
104002 
013737 
01133/ 
010415 
023715 
001401 
10-002 
005137 



013572 



005500 013737 



013164 
013272 
005354 
00135*. 
001V.6 
001!>52 
000001 
001122 
OO00O2 
000001 
000001 
000002 
0OO002 
100400 

001124 



001124 
001122 

001124 



001350 
001124 

001124 



001124 
001360 



001122 
000002 



G01354 

001124 

000001 

000001 000001 

000002 

001124 



001360 001122 
001124 
000002 
001124 



2$; 
3$: 



4$: 



5$: 



COM 

MOV 

MOV 

CLRB 

MOVB 

MOV 

CMP 

BEG 

ERROR* 

MOV 

CLR 

MOV 

CMP 

BEQ 

ERROR* 

TST 

CMP 

BNE 



$GODAT 

DRDBC.JBDADR 

$GDDAT.2CRn 

1CR0) 

«BIT0,1CR1) 

2(R0),(R5) 

$GDDAT.CR5) 

4$ 

2 

DRDBD.JBDADR 

JGDDAT 

2(R2).CR5) 

$GDDAT,(R5) 

5$ 

2 

(R3)* 

R3,*EN0DAT 

1$ 



{SET UP TO WRITE COM DATA FROM 
PORT A TO PORT C 
STORE DBRC ADDRESS 
U'RITE PORT A .INPUT MODE 
MAKE PORT C INPUT MODF 
MAKE PORT A OUTPUT MODE 
READ PORT C.OBRC 
PORT C -PORT A? 
CHECK DBRD FOR NO DATA CHANGE 
PORT C.DBRC REG ERROR 
STORE DBRD AODRESS 
DBRD - EXPECTED 
READ DBRD FOR CLEAR 
IS DBRD CLEAR? 
YES .CONTINUE 
DBRD INTERACTION ERROR 
INC FOR NEXT PATTERN 
CHECK FOR ENO 
DO NEXT PATTERN 



001110 

000001 

000001 
001124 



001122 101* 



001122 



• j ************ 
j*TEST 21 

; ; ************ 

TST21: SCOPE 
JSR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOVB 

1$: MOV 
CLR 
CLRB 
MOVB 
MOV 
MOV 
MOV 
MOV 
CMP 
BEQ 
ERROR* 

100$: CLR 
MOV 
MOV 
CMP 
BEQ 
ERROR* 
MOV 
MOV 
MOV 
CMP 
BEQ 
ERROR* 

2 $ : COM 

MOV 



*************************************4.************« 

TEST PORT D TO PORT B INTERACTION 

*************************************************** 



PC.CLRCSR 

♦8EGPAT.R3 

*lt,$LPERR 

DRCSD.RO 

DRCSB.R1 

DRCSCR2 

•6IT0.KR2) 

RO.fBOADR 

2CR2) 

1CR1) 

♦6iro,i(RO) 

(R3),2(R0) 

2CRD.R4 

*RDY!DIR,$GDDAT 

(R0),(R5) 

$GDDAT,(R5) 

100$ 

2 

fGDDAT 

Ri,$BDADR 

(R1),(R5) 

$GDDAT,(R5) 

101$ 

2 

DHDOB,$BDADR 

(R3),$GDDAT 

R4.CR5) 

$GDDAT,CR5) 

2$ 

2 

$GDOAT 

ORDBD,$BOADR 



CLEAR ALL CSR5 

GET DATA PATTERN TABLE 

SET UP SCOPE ADDRESS 

GET PORT 0, CSRD ADDRESS 

GET PORT B, CSRB ADDRESS 

STORE CSRC ADDRESS 

CSRC IN OUTPUT MOOE 

STORE CSRD ADDRESS 

CLEAR DBRC 

PORT B. CSRB, INPUT MODE 

SET CSRD IN OUTPUT MODE 

WRITE INTO DBRD 

READ DBRB 

SAVE EXPECTED 

READ CSRD 



CSRD ERROR 
SAVE EXPECTED 
SAVE CSrtB ADDRESS 



j CSRB ERROR 

jSAVfr D6RB ADDRESS 

j SAVE EXPECTED 

lOBRB CONTENTS 

iCHECK PORT B.DBRB 

tBEQ TO NEXT SUBTEST 

tDBRB REG ERROR 

jSET UP TO WRITE COM DATA FROM 

j PORT B TO PORT D 

} STORE DBRD ADDRESS 



"I > 



C'VD&CC DRVUJ PMG TS1 PRTl MACHO M1200 111 -DEC-»3 09:55 PAGE 12-5 

XZl TEST PORT D TO PORT INTERACTION 



St'ti 0052 



1139 


005506 


013761 


001124 


1140 


C05514 


105060 


000001 


1141 


005520 


112761 


00000 t 


1142 


005526 


016015 


000002 


1143 


005532 


023715 


001124 


1144 


005536 


001401 




1143 


005540 


104002 




1146 


005542 


013/37 


001354 


114 7 


005550 


005037 


001124 


1148 


005554 


016215 


000002 


1149 


005560 


023715 


001124 


1150 


005564 


001401 




1151 


005566 


104002 




1152 


005570 


005723 




1153 


005572 


020327 


013572 


1154 


005576 


001266 




1155 








1156 










005600 


C00004 




1157 


005602 


004 737 


013164 


1158 


005606 


012702 


000002 


1159 


005612 


013700 


001342 


1160 


005616 


013701 


001346 


1161 


005622 


004737 


013234 


1162 


005626 


010137 


001122 


1163 


005632 


012737 


000377 


1164 


005640 


112710 


000244 


1165 


005644 


111115 




1166 


005646 


023715 


001124 


1167 


005652 


001401 




1168 


005654 


104005 




1169 


005656 


005037 


001124 


1170 


005662 


112710 


000250 


1171 


005666 


11111S 




1172 


005670 


023715 


001124 


1173 


005674 


001401 




1174 


0056 76 


104003 




1175 


005700 


112710 


000254 


1176 


005704 


111115 




1177 


005706 


023715 


0OH24 


1178 


005712 


001401 




1179 


005714 


104004 




1180 


005716 


005302 




1181 


005720 


001405 




1182 


005722 


013700 


001352 


1183 


005726 


0137C1 


001356 


1184 


005732 


000735 




1185 








1186 










005734 


000004 




1187 


005736 


004737 


013164 


1188 


005 742 


013700 


001342 


1189 


00574b 


013701 


001346 



000002 3$: 
000001 



001122 4$: 



MOV 
CLRB 
MOVB 
MOV 
CMP 
BFQ 
ERROR* 
MOV 
CLR 
MOV 
CMP 
BEQ 
ERROR * 
5$: 1ST 
CMP 
BNE 

• ; ****** £ ***** 

;*TEST 22 

; • ************ 

TST22: SCOPE 
JSR 
MOV 
MOV 
MOV 
JSR 

111$ j MOV 
001124 MOV 

MOVB 
MOVB 
CMP 
BEQ 
ERROR* 

1 $ : CLR 
MOVB 
MOVB 
CMP 
BEQ 
ERROR* 

2*: MOVB 
MOVB 
CMP 
BEQ 
ERROR* 

3*: DEC 
BEQ 
MOV 
MOV 
BR 



IGDDAT.2CR1) 

HRO) 

OBITC.l(Rl) 

2(R0),(R5) 

JGDDAT.CR5) 

4$ 

2 

DRDBC.tBDADR 

IGODAT 

2(R2),(R5) 

*GDDAT,(R5) 

5$ 

2 

(R3)* 

R3.0ENDDAT 

1$ 

***************** 

TEST GROUP 1,2 
***************** 

PC.CLRCSR 

02. R2 

URCSA.RO 

DRCSB.R1 

PC.CLRIRP 

Rl.iBDADR 

*377 ( $GDDAT 

OMIMR.CRO) 

CR1),(R5) 

IGDDAT.CR5) 

1$ 

5 

IGDDAT 

*MIRR,(RO) 

(R1).(R5) 

IGDDAT t (R5) 

2$ 

3 

♦MACR.(RO) 

(RD.CR5) 

IGDDAT.CR5) 

3» 

4 

R2 

TST23 

0RC5C.R0 

DRCSD.R1 

Hit 



j WRITE PORT B, INPUT MODE 

{MAKE PORT D INPUT MODE 

l MAKE PORT B OUTPUT MODE 

{READ PORT D.DBRD 

;PORT B -PORT D? 

j CHECK DBRC FOR NO D'UA CHANGE 

j PORT D.DBRD REG ERROR 

j STORE DBRC ADDRESS 

jEXPECT DBRC - 

I READ DBRC 

{IS DBRC - 

I YES, CONTINUE 

{DBRC INTERACTION ERROR 

{INC FOR NEXT PATTERN 

{CHECK FOR END 

jDO NEXT PATTERN 

a********************************* 

IMR, IRR, ACR UITH CHIP RESET 
******************************** j* 

{CLEAR ALL CSRS 
;TWO GROUPS TO TEST 
{STORE CSRA 

CSRB 

IRR REGISTERS 

AOORESS 

EXPECTED DATA 
MODE BITS FOR IMR 



{STORE 

{CLEAR 

{STORE 

{STORE 

{LOAD 

{READ IMR REGISTER 



{IMR REG ERROR 
{STORE EXPECTED 
{LOAD MODE BITS FOR 
{READ IRR REGISTER 



IRR 



i IRR RSG ERROR 

ll.OMJ MODE BITS FOR ACR 

{READ ACR REGISTER 



{ACR REG ERROR 
{FINISHED BOTH 
I I PR IF EQUAL 



GROUPS? 



j 2******************* A ******************************************* 
{♦TEST 23 TEST GROUPS 1 ANO 2 ACR UNIQUENESS 

(;************************************+************************** 

TST23: SCOPE 

JSR PC.CLRCSR {CLEAR ALL CSRS 

MOV DRCSA.RO {CSRA ADDRESS 

MOV DRCSB,R1 jCSRB ADDRESS 



CVDRCC DRVUJ DIAf, TSY PRTl MACRO M12O0 ;.'.'• DEC -83 09:55 PAGE 12-6 

T23 TEST GROUPS 1 AND 2 ACR UNIQUENESS 



11^0 


0057:>2 


012703 


000002 


1191 


005756 


004737 


013234 


1192 


005762 


010137 


001122 


1193 


C057t>6 


012737 


000252 001124 


1194 


0057 74 


112710 


000254 


1195 


006000 


112710 


000300 


: 196 


006004 


113711 


001124 


*' 197 


006010 


111115 




■ 198 


006012 


023715 


001124 


1199 


006016 


001401 




1200 


006020 


104004 




1201 


006022 


112710 


000244 


1202 


006026 


012737 


000377 001124 


1203 


006034 


111115 




1204 


006036 


023715 


001124 


1205 


006042 


001401 




1206 


006044 


104005 




1207 


006046 


112710 


000240 


1208 


006052 


005037 


001124 


1209 


006056 


111115 




1210 


006060 


023715 


001124 


1211 


006064 


001401 




1212 


006066 


104006 




1213 


006070 


112710 


000250 


1214 


006074 


111115 




1215 


C06076 


023715 


001124 


1216 


006102 


001401 




1217 


0O61O4 


104003 




1218 


006106 


105010 




1219 


006110 


112710 


0OO254 


1220 


006114 


111115 




1221 


006116 


023715 


001124 


1222 


006122 


001401 




1223 


006124 


104004 




1224 


006126 


005303 




1225 


006130 


001405 




1226 


006132 


013700 


001352 


122/ 


006136 


013701 


001356 


1228 


006142 


000707 




1229 








1230 










006144 


0O0004 




1231 








1232 


006146 


004737 


013234 


1233 


006152 


013700 


001342 


1234 


006156 


013701 


001346 


1235 


006162 


012703 


000002 


1236 


006166 


010137 


001122 


1237 


006172 


012737 


000252 001124 


1238 


006200 


112710 


0O0244 


1239 


006204 


112710 


000260 


1240 


006210 


113711 


001124 


1241 


006214 


111115 




1242 


006216 


023715 


001124 


1243 


006322 


001401 





MOV 

JSR 

111$: MOV 

MOV 

MOVB 

MOVB 

MOVB 

MOVB 

CMP 

8EQ 

ERROR* 

1$: MOVB 
MOV 
MOVB 
CMP 
BEQ 
ERROR* 

2$ j MOVB 
CLR 
MOVB 
CMP 
BEQ 
ERROR* 

3$i MOVB 
MOVB 
CMP 
BEQ 
ERROR* 

4$: CLRB 
MOVB 
MOVB 
CMP 
BEQ 
ERROR* 

5$: DEC 
BEQ 
MOV 
MOV 
BR 

; ; ************ 

I*TEST 24 

; ;*** ********* 

TST24; SCOPE 



02.R3 

PC.CLRIRR 

Rl, $BDADR 

0252,*GDDAT 

*MACR,(RO) 

GPACR.(RO) 

*GDDAT,(R1) 

(R1),(R5) 

IGDDAT.CR5) 

1$ 

4 

OMIMR.(RO) 

*377,*GDDAT 

CRn,(R5) 

$GDDAT,(R5) 

2* 

5 

*MISR,(RO) 

IGDDAr 

CRD.CRS) 

$G0DAT,(R5) 

3$ 

6 

frMIRR.CRO) 

(R1),(R5) 

IGDDAT.CR5) 

4$ 

3 

CRO) 

♦MACR.(RO) 

(R1),(R5) 

♦G0DAT.CR5) 

5* 

4 

R3 

TST24 

DRCSC.RO 

DRCSD.Rl 

111$ 



COUNTER FOR TESTING TWO GROUPS 
CLEAR IRR REGS WITH CHIP RESET 
STORE ADDRESS 
STORE EXPECTED 
LOAD MODE BITS FOR ACR 
PRESELECT ACR FOR WRITING 
WRITE INTO f ATA PORT 
STORE DA*A FOR COMPARE 
CHECK ACR RESULTS 

ACR ERROR 

CHANGE TO IMP REGISTER 

STORE EXPECTED 

READ IMR 

SHOULD STILL BE ALL l'S 

IMR REG ERROR 

LOAD MODE BITS FOR ISR 

STORE EXPECTED 

READ ISR 

ISR SHOULD BE CLEARED 

ISR REG ERROR 

LOAD MODE BITS FOR IPR 

READ IRR 

Ih'ri SHOULD BE CLEARED 

IrtR REG ERROR 

CHIP RESET GROUP 1 

LOAD MOOE BITS FOR ACR 

READ ACR 

ACR SHOULD BE CLEARED 

ACR REG ERROR 

TEST GROUPS 1 ANO 2 

jBR IF BOTH GROUPS TESTED 

GROUP 2 CONTROL PO»"U 

GROUP 2 OATA PORT 

TEST GROUP 2 ACR UNIQUENESS 



♦a************************************************* 

TEST GROUPS 1 ANO 2 IMR UNIQUENESS 

*************************************************** 



llGPA 



111$: 



JSR 

JSR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

MOVB 

MOVB 

MOVB 

CMP 

BEQ 



PC.CLRCSR 

PC.CLRIRR 

DRCSA.RO 

DRCSB.R1 

*2.R3 

Rl, IBDADR 

♦252,tGDDAT 

OMIMR.CRO) 

*PIMR,(RO) 

IGDOAT.CRt) 

CRD.CR5) 

*GDDAT,CR5) 

1$ 



j CLEAR ALL CSRS 

ji ♦** VDRCM1 CHANGES THIS *** 

jCSRA ADDRESS 

,CSRB ADDRESS 

iCOUNTER FOR TWO GROUP TESTING 

, STORE ADDRESS 

j STORE EXPECTED 

tLOAD MOOE BITS FOR IMR 

iPRESELECT IMR FOR WRITING 

j WRITE INTO DATA PORT 

j STORE DATA FOR COMPARE 

; CHECK IMR RESULTS 

1 



jGPA 



CVDRCC DRVUJ D1AG TS1 PRU MACRO Ml 200 27 DF.C-83 09;55 "AGE 12 7 
T24 TEST GROWS 1 AND 2 IMR UNIQUENESS 



SEQ 0054 



1244 


006224 


104005 




1245 


006226 


112710 


000254 


1246 


006232 


00503 7 


001124 


1347 


006236 


111155 




1248 


006240 


023715 


001124 


1249 


006244 


001401 




1250 


006246 


104004 




1251 


006250 


112710 


00024G 


\^2 


006254 


111115 




1253 


006256 


023715 


001124 


1254 


006262 


001401 




1255 


006264 


104006 




1256 


006266 


112710 


000250 


1257 


006272 


111115 




1258 


006274 


023715 


001124 


1259 


006300 


001401 




1260 


006302 


104003 




1261 


006304 


105010 




1262 


006306 


112710 


000244 


1263 


006312 


012737 


000377 001124 


1264 


006320 


111115 




1265 


006322 


023715 


001124 


1266 


006326 


001401 




1267 


006330 


104005 




1268 


006332 


005303 




1269 


006334 


001405 




1270 


006336 


013700 


001352 


12/1 


006342 


013701 


001356 


1272 


006346 


000707 




1273 








1274 










006350 


000004 




1275 


0O6352 


004737 


013164 


1276 


006356 


013700 


001342 


1277 


006362 


013701 


001346 


1278 


006366 


012703 


000002 


1279 


006372 


0O4737 


013234 


1280 


0O6376 


010137 


001122 


1281 


006402 


012737 


000200 001124 


1282 


006410 


112710 


000250 


1283 


0O6414 


112710 


000137 


a 284 


006420 


111115 




1285 


006422 


023715 


001124 


1286 


006426 


0014C1 




1287 


006430 


104003 




1288 


006432 


112710 


000244 


1289 


006436 


012737 


000377 001124 


1290 


006444 


111115 




1291 


006446 


023715 


CU124 


1292 


006452 


001401 




1293 


006454 


104005 




1294 


006456 


112710 


000240 


1295 


006462 


005037 


001124 


1296 


006466 


111115 




1297 


006470 


023715 


001124 



1$: 



2$; 



3$: 



4$: 



5$: 



ERRORS 

MOVB 

CLR 

MOVB 

CMP 

BEQ 

ERROR* 

MOVB 

MOVB 

CMP 

BEG 

ERROR* 

MOVB 

MOVB 

CMP 

BEQ 

ERROR* 

CLRB 

MOVB 

MOV 

MOVB 

CMP 

BEQ 

ERROR* 

DEC 

BEQ 

MOV 

MOV 

BR 



4MACR, 
iGDDAT 

(Rl).C 

$GDDAT 

2$ 

4 
OMISR, 

CR1),( 
IGDDAT 
3$ 

6 

*MIRR t 
(Rl).( 

IGDDAT 

4$ 

3 

(RO) 

*MIMR, 

0377,$ 

(Rl).C 

*GDDAT 

5$ 

5 

R3 

TST25 

DRCSC, 

DRCSD, 

111$ 



(RO) 

R5) 

,CR5) 



;ro) 

R5) 
,CR5) 



(RO) 

R5) 

.(R5) 



CRO) 
GDDAT 
R5) 
.CR5) 



RO 
Rl 



{IMR ERROR 

{CHANGE TO ACR REGISTER 

{STORE EXPECTED 

: READ ACR 

; SHOULD STILL BE CLEARED 

}ACR REG ERROR 

{LOAD MODE BITS FOR ISR 

•READ ISR 

1 ISR SHOULD BE CLEARED 

{ISR REG ERROR 

{LOAD MODE BITS FOR IRR 

iREAD IRR 

tIRR SHOULD BE CLEARED 



IRR REG ERRGM 

CHIP RESET GHOUP 1 

LOAD MODE BITS FOR IMR 

STORE EXPECTED 

READ IMR 

IMR SHOULD BE ALL ONES 

DO NEXT GROUP 

IMR REG ERROR 

DO GROUPS 1 ANO GROUP 2 

jBR IF BOTH GROUPS TESTED 

SET UP TO TEST GROUP 2 

GROUP 2 DATA PORT 

DO GROUP 2 IMR UNIQUENESS 



♦TEST 25 

. *********** 

TST25: SCOPE 
JSR 
MOV 
MOV 
MOV 
JSR 

111*: MOV 
MOV 
MOVB 
MOVB 
MOVB 
CMP 
BEQ 
ERROR 

1$: MOVB 
MOV 
MOVB 
CMP 
BEQ 
ERROR 

2*: MOVB 
CLR 
MOVB 
CMP 



TEST GROUPS 

4. ************* 

PC.CLRCSR 

DRCSA,RO 

DRCSB.R1 

02, R3 

PC.CLRIRR 

R1.IBDADR 

*200,.GDDAT 

♦MIRR.(RO) 

0137, (RO) 

(RD.CR5) 

*GDDAT,(R5) 

1$ 

3 

OHIMR.(RO) 

*377,IGDDAT 

(R1),(R5) 

*GDDAT,(R5) 

2$ 

5 

*ttI5R.(R0) 

JGDDAT 

(R1MR5) 

$GDDAT,(R c O 



************************************** 

1 AND 2 IRR UNIQUENESS 

************************************** 



CLEAR ALL CSRS 

CSRA ADDRESS 

CSRB ADDRESS 

COUNTER FOR TESTING TWO GROUPS 

CLEAR IRR REGS WITH CHIP RESET 

STORE AODRESS 

STORE EXPECTED 

LOAD MODE BITS FOR IRR 

SET SINGLE IRR BIT7 

STORE DATA FOR COMPARE 

CHECK IRR RESULTS 

IRR ERROR 

CHANGE TO IMR REGISTER 

STORE EXPECTED 

READ IMR 

SHOULD STILL BE ALL 1'S 

;IMR REG ERROR 

iLOAD MODE BITS FOR ISR 

{"TORE EXPECTED 

iREAD ISR 

j ISR SHOULD BE CLEARED 



CVDRCC DHVUJ DIAi; TS1 PRT1 MACHO M1200 27 CFC-83 09:55 PAGE 12-8 
Tc!5 TEST GROUPS 1 AND 2 1RR UNIQUENESS 



SEG 0035 



1298 


006474 


001401 




1299 


0064 76 


104006 




1300 


006500 


112710 


000254 


1301 


006504 


111115 




1302 


006506 


023715 


001124 


1303 


006512 


001401 




1304 


006514 


104004 




1305. 


006516 


105010 




1306 


006520 


112710 


000250 


1307 


006524 


111115 




1308 


006526 


023715 


001124 


1309 


006532 


001401 




1310 


006534 


104003 




1311 


006536 


005303 




1312 


006540 


001405 




1313 


006542 


013700 


001352 


1314 


006546 


013701 


001356 


1315 


006552 


000711 




1316 








131f 








1318 










006554 


000004 




1319 


006556 


004737 


013164 


1320 


006562 


012702 


000002 


1321 


006566 


012737 


006614 


1322 


006574 


013700 


001342 


1323 


006600 


013701 


001346 


1324 


006604 


012703 


013272 


1325 


006610 


010137 


001122 


1326 


006614 


112710 


000254 


1327 


006620 


112710 


000300 


1328 


006624 


111337 


001124 


1329 


006630 


111311 




1330 


006632 


111115 




1331 


006634 


023715 


001124 


1332 


006640 


001401 




1333 


006642 


104004 




1334 


006644 


005723 




1335 


006646 


02032/ 


013572 


1336 


006652 


001360 




1337 


006654 


005302 




1338 


006656 


001405 




1339 


006660 


013700 


001352 


1340 


006664 


013701 


001356 


1341 


006670 


000745 




1342 








1343 










006672 


000004 




1344 


006674 


004 737 


013164 


1345 


006700 


012702 


000002 


1346 


006704 


012737 


006732 


1347 


006712 


013700 


001342 


1348 


006716 


013701 


001346 



3$: 



4$: 



5$; 



BEQ 


3$ 


ERROR * 


6 


MOVB 


OMACR.CRO) 


MOVB 


(R1),(R5) 


CMP 


*GDDAT,CR5,> 


BF.Q 


4$ 


ERROR* 


4 


CLRB 


CRO) 


MOVB 


WTRR.(RO) 


MOW 


CR1).(R5) 


CMP 


*GDDAT,(R5) 


BEQ 


5$ 


ERROR* 


3 


DEC 


R3 


BEQ 


TST26 


MOV 


DRCSC.RO 


MOV 


DRCSD.R1 


BR 


111$ 



.************ 

♦TEST 26 

; ************ 

TST2&: SCOPE 
JSR 
MOV 
001110 MOV 

MOV 
MOV 

111*5 MOV 
MOV 

1$: MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
CMP 
BEQ 
ERROR* 

2$: TST 
CMP 
BNE 
DEC 
BEQ 
MOV 
MOV 
BR 



************** 

TEST GROUPS 

************** 

PC.CLRCSR 

«2,R2 

Oli,$LPERR 

ORCSA.RO 

DRCSB.R1 

♦6EGPAT.R3 

R1.IBDADR 

0MACR.CRO) 

♦PACR.(RO) 

CR3),IGDDAT 

(R3),(R1) 

(R1),(R5) 

IGODAT,(RS) 

2* 

4 

(R3)* 

R3.0ENDDAT 

1$ 

R2 

TST27 

DRCSC.RO 

DRCSD.Ri 

111$ 



jISR REG ERROR 

{LOAD MODE BITS FOR ACR 

{READ ACR 

;ACR SHOULD BE CLEARED 

j ACR REG ERROR 
{CHIP RESET GROUP 1 
{LOAD MCDE BITS FOR IRR 

.r<;:AD IRR 

{IRR SHOULD BE CLEARED 

{IRR REG ERROR 

{TEST GROUPS 1 AND 2 

jjBR IF BOTH GROUPS TESTED 

{GROUP 2 CONTROL PORT 

{GROUP 2 DATA PORT 

{TEST GROUP 2 ACR UNIQUENESS 



************************************* 

1,2 ACR WITH PATTERNS 
************************************* 

{CLEAR ALL CSRS 

{TEST TWO GROIPS 

{SET LIP LOOP RETURN 

{STORE CSRA ADDRESS 

♦ STORE CSRB ADDRESS 

{SET UP PATTERN TABLE 

{STORE ADDRESS 

{LOAD MOOE BITS FOR ACR 

{PRESELECT ACR FOR WRITING 

{STORE EXPECTED 

{WRITE INTO ACR 

{READ OUT OF ACR 



; ACR REGISTER ERROR 
{INC FOR NEXT PATTERN 
{CHECK FOR TABLE END 
jW/R NEXT PATTERN 
{FINISHED BOTH GROUPS? 
j iBR IF EQUAL 



jDO NEXT GROUP 



001110 



-j ************************* A*********,****-******** **************** 

s*TEST 27 TEST GROUPS 1.2 I MR WITH PATTERNS 

I*****************************************. V ************* 4* ******* 

TST27: SCOPE 

{CLEAR ALL CSRS 
{TEST TWO GROUPS 
s SET UP LOOP RETURN 
{STORE CSRA ADDRESS 
{STORE CSRB ADDRESS 



JSR 


PC.CLRCSR 


MOV 


02, R2 


MOV 


91%, $LPERR 


MOV 


DRCSA.RO 


MOV 


DRCSB.R1 



CVDHCC DRV11J [>IAi5 1S1 PRU MACRO M12O0 27 DFC 83 09:55 PAGE 12-9 
T27 TEST GROUPS 1,2 IMR WITH PATTERNS 



SEQ 0036 



1349 


006722 


012703 


013272 


1350 


006726 


010137 


001122 


1351 


006732 


112710 


000244 


1352 


006736 


112710 


000260 


1353 


006742 


111337 


001124 


1354 


006746 


111311 




1355 


006750 


111115 




1556 


006752 


023715 


001124 


1357 


006756 


001401 




1358 


006760 


1040C5 




1359 


006762 


005723 




1360 


00676' 


020327 


013572 


1361 


0067 70 


001360 




1362 


006772 


005302 




1363 


006774 


001405 




1364 


006776 


013700 


001352 


1365 


007002 


013701 


001356 


1366 


007006 


000745 




1367 








1368 










007010 


000004 




1369 


007012 


004737 


013164 


1370 


00701-5 


012704 


000002 


1371 


0070?" 


013700 


001342 


1372 


oo7:>:h> 


013701 


001346 


13/3 


00/032 


010137 


001122 


1374 


00/036 


005037 


001124 


1375 


007042 


112710 


000244 


1376 


007046 


112710 


000040 


1377 


007052 


111115 




1378 


007054 


023715 


001124 


1379 


007060 


001401 




1380 


007062 


104005 




1381 


X)7064 


005304 




1382 


007066 


001405 




1383 


007070 


013700 


001352 


1384 


007074 


013701 


001356 


1385 


007100 


000754 




1306 








1387 










007102 


000O04 




1388 


007104 


004737 


013164 


1389 


007110 


012704 


000002 


1390 


007114 


013700 


001*42 


1391 


007120 


013/01 


001346 


1392 


007124 


010137 


001122 


1393 


007130 


012737 


000377 


1394 


007136 


112710 


000244 


1395 


007142 


112710 


000040 


1396 


00714?, 


112710 


000060 


1397 


007152 


111115 




1398 


00/154 


023715 


001124 


1399 


007160 


001401 





111$: MOV 

MOV 
1$; MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

CMP 

BEQ 

ERROR* 
2*: TST 

CMP 

BNE 

DEC 

BEQ 

MOV 

MOV 

BR 

j ; ************* 

{♦TEST 30 

• ; ************* 



TST30: 



111$ 



1$ 



SCOPE 

JSP. 

MOV 

MOV 

MOV 

MOV 

CLR 

MOVB 

MOVB 

MOVB 

CMP 

BEQ 

ERROR 

DEC 

BEQ 

MOV 

MOV 

BR 



0BFGPAT.R3 

R1,$BDADR 

OHIMR.CRO) 

tfPIMR.(RO) 

(R3),tGDDAT 

(R3),CR1) 

(Rl),(R5) 

SGDDAT.CR5) 

2$ 

5 

IR3)» 

R3,tfENDDAT 

1$ 

R2 

T5T30 

DRCSC.RO 

0RCSD.R1 

111$ 

************ 

TEST GROUP 
************ 

PC.CLRCSR 

*2,R4 

DRCSA.RO 

DRCSB.Rl 

Rl.iBDADR 

IGDDAT 

*ttIMR,(RO) 

*CIMR,(RO) 

(R1),(R5) 

$GDDAT,(R5) 

1$ 

5 

R4 

TST31 

DRCSC.RO 

DRCSD.R1 

111$ 



SET UP PATTERN TABLE 

STORE ADDRESS 

LOAD MODE BITS FOR IMR 
{PRESELECT IHR FOR WRITING 
{STORE EXPECTED 
{WRITE INTO IMR 
{READ OUT OF IMR 



j IMR REGISTER ERROR 
{INC FOR NEXT PATTERN 
{CHECK FOR TABLE END 
}W/R NEXT PATTERN 
{FINISHED BOTH GROUPS? 
jjBR IF EQUAL 



?D0 NEXT GROUP 

************************************** 

1,2 CLEAR IMR INSTR. 

****** **************** **************** 



{CLEAR ALL CSRS 
{COUNTER FOR TWO GROUPS 
{CSRA ADDRESS 
{CSRB ADDRESS 
{STORE ADDRESS 
{EXPECTED DATA 

LOAD MODE BITS TO REPO IMR 

CLEAR IMR COMMAND 

READ DATA PORT 



{ERROR .IMP SHOULD BL CLEmRED 
{FINISHED BOTH GROUPS? 
{jBR IF BOTH GROUPS TESTED 
{SETUP FOR GROUP 2 

jDO IMR TEST WITH GROlT 2 



001124 



• j ********************************************************* ****** 

{♦TEST 31 TEST GROUP 1,2 SET IMR INSTR. 

• j************************.*************************************** 

TST31: SCOPE 



111$ 



JSR 


PC.CLRCSR 


{CLEAR ALL CSRS 


MOV 


*2,R4 


{COUNTER FOR TWO GROUPS 


MOV 


DRCSA.RO 


j CSRA ADDRESS 


MOV 


DRCSB.Rl 


{CSRB ADORES? 


MOV 


R1,$BDADR 


{STORE ADDRESS 


MOV 


«377,$GOOMT 


{EXPECTED DATA 


MOVB 


OMIMR.CRO) 


jLOAD MODE BITS TO READ IMR 


MOVB 


OCTMR.(RO) 


{CLEAR IMR 


MOVB 


4SIMH.CR0) 


{SET IMR COMMAND 


MOVB 


(Rn,(R5) 


{READ DATA PORT 


CMP 


$GDDAT.CR5) 




BcQ 


1$ 





CVDRCC DRVUJ DIA15 TS1 PRT 1 MACRO M1200 2 7 DEC -83 09:55 PAGF. 12 -10 
T31 TEST GROUP 1,2 SET I MR INSTR, 



SEQ 00.5V 



1400 


007162 


104005 




1401 


007164 


005304 




1402 


007166 


001405 




1403 


007170 


013700 


00135? 


1404 


OC7174 


013701 


001356 


1405 


007200 


w00751 




1406 








1407 










007202 


000004 




1408 


007204 


004737 


013164 


1409 


007210 


012704 


000002 


1410 


007214 


012737 


007252 


1411 


007222 


013700 


001342 


1412 


007226 


013701 


001346 


1413 


007232 


010137 


001122 


1414 


007236 


012703 


013436 


1415 


007242 


112710 


000244 


1416 


007246 


012702 


000050 


1417 


007252 


111337 


001124 


1418 


007256 


112710 


000060 


1419 


007262 


110210 




1420 


007264 


111115 




1421 


007266 


023715 


001124 


1422 


007272 


001401 




1423 


007274 


104005 




1424 


007276 


005723 




1425 


007300 


020327 


013456 


1426 


007304 


001402 




1427 


007306 


005202 




1428 


007310 


000760 




1429 


007312 


005304 




1430 


007314 


001405 




1431 


007316 


013700 


001352 


1432 


007322 


013701 


001356 


1433 


0073^6 


000741 




1434 








1435 








1436 










007330 


000004 




1437 


007332 


004737 


013164 


1438 


007336 


012704 


000002 


1439 


007342 


012737 


007400 


1440 


007350 


013700 


001342 


1441 


007354 


013701 


001346 


1442 


007360 


010137 


001122 


1443 


007364 


012703 


013374 


1444 


007370 


112710 


000244 


1445 


007374 


012702 


000070 


1446 


007400 


111337 


001124 


1447 


007404 


112710 


000040 


1448 


007410 


110210 




1449 


007412 


111115 




1450 


007414 


023715 


001124 



001110 



ERROR ► 


5 


1$; DEC 


R4 


BEQ 


TST32 


MOV 


DRCSC.RO 


MOV 


DRCSD.Rl 


BR 


111$ 


; ;***C- ********************* 


{♦TEST 32 


TEST GROUP 


; ; ************************* 


TST32? SCOPE 




J5R 


PC.CLRCSR 


MOV 


02, R4 


MOV 


01*,$LPERR 


MOV 


DRCSA.RO 


MOV 


DRCSB.R1 


111$: MOV 


Rl.iBOADR 


MOV 


OOGCHP4.R3 


MOVB 


4MIMR.CR0) 


MOV 


0CSIMR.R2 


1$: MUVB 


(R3),$GDDAT 


MOVB 


*SIMR,(RO) 


MOVB 


R2.CR0) 


MOVB 


CR1).(R5) 


CMP 


$GDDAT,CR5) 


BEQ 


2% 


ERROR* 


5 


2$: TST 


CR3)* 


CMP 


R3.4EDCHP4 


BEQ 


3$ 


INC 


R2 


BR 


1$ 


3$ j DEC 


R4 


BEQ 


TST33 


MOV 


DRCSC.RO 


MOV 


DRCSD.Rl 


BR 


111$ 



************************** 

♦TEST 33 TEST GROUP 
******** ****************** 

TST33. SCOPE 



001110 



111$ 



1$ 



JSR 


PC.CLRCSR 


MOV 


*2,R4 


MOV 


*1$.$LPF_RR 


MOV 


DRCSA.RO 


MOV 


DRCSB.R1 


MOV 


R1,*BDA0R 


MOV 


*6GCHP3,R3 


MOVB 


*MIMR t (RO) 


MOV 


0SSIMR.R2 


MOVB 


CR3),$GDDAT 


MOVB 


OCIMR.(RO) 


MOVB 


R2.CR0) 


MOVB 


CR1),(R5) 


CMP 


$G0DAT,CR5) 



{ERROR , IMR SHOULD BE SET 
{FINISHED BOTH GROUPS? 
{ }BR IF BOTH GROUPS TFS T ED 
{SETUP FOR GROUP ? 

j DO IMR TEST WITH GROUP 2 



1.2 CLEAR SINGLE IMR BIT INSTR, 



{CLEAR ALL CSRS 

{GROUP COUNTER 

{SCOPE RETURN ADDRESS 

sCSRA ADDRESS 

iCSHB ADDRESS 

{STORE ADDRESS 

{GOOD DATA PATTERN TABLE 

{LOAD MODE BITS FOR IMR 

{CLEAR SINGLE IMR BIT \/ALUE 

{STORE EXPECTED 

{SET ALL IMR BITS 

;CLEAR SINGLE IMR BIT 

{READ DATA PORT 



{IMR REG ERROR 

j INC EXPECTED DATA TABLE 

{CHECK FOR ENO 

{SET UP TO CLEAR NEXT IMR BIT 

{CLEAR NEXT IMR BIT 

{DO GROUPS 1 AND 2 

}}BR IF BOTH GROUPS TESTED 

{CSRC ADDRESS 

iCSRD ADDRESS 

{DO GROUP 2 



**********************************<\**4 

1.2 SET SINGLE IMR BIT INSTR. 

******************************** ****** 



{CLEAR ALL CSRS 

{GROUP COUNTER 

{SCOPE RETURN ADDRESS 

jCSRA ADDRESS 

jCSRB ADDRESS 

{STORE ADDRESS 

{GOOO DATA PATTERN TABLE 

{LOAD MODE BITS TOR IMR 

{SET SINGLE IMR BIT VALUE 

{STORE EXPECTED 

{CLEAR ALL IMR BITS 

iSET SINGLE IMR BIT 

{READ DATA PORT 



CVDRCC DRVUJ D1AG TS1 PRT1 MACRO M120O ?.! DFC-83 09:55 PAGE 12 11 
T33 TEST GROUP 1.2 SET SINGLE TMR BIT INSTR, 



2$ 



5EQ 0038 



1451 


007420 


001401 




1452 


007422 


104005 




1453 


007424 


005723 




1454 


007426 


020327 


013414 


1455 


007432 


001402 




1456 


007434 


005202 




1457 


007436 


000760 




1458 


007440 


005304 




14 59 


007442 


001405 




1460 


007444 


013700 


001352 


1461 


007450 


013701 


001356 


1462 


007454 


000741 




1463 








1464 










007456 


000004 




1465 


007460 


004737 


013164 


1466 


007464 


012704 


000002 


1467 


0074 70 


013700 


001342 


1468 


007*74 


013701 


001346 


1469 


007500 


004737 


013234 


1470 


007504 


010137 


001122 


1471 


007510 


012737 


000377 


14 72 


00 7516 


112710 


000250 


1473 


007522 


112710 


0001.20 


14 74 


007526 


111115 




1^75 


007530 


023715 


001124 


1476 


007534 


001401 




1477 


007536 


104003 




1478 


007540 


005304 




1479 


007542 


001405 




1480 


007544 


013700 


00135? 


1481 


007550 


013701 


001356 


1482 


007554 


000753 




1483 








1484 








1485 










007556 


000004 




1486 


007560 


004 73 7 


013164 


1487 


007564 


012704 


000002 


1488 


007570 


013700 


001342 


1489 


007574 


013701 


001346 


1490 


007600 


004737 


013234 


1491 


007604 


010137 


001122 


1*^2 


007610 


005037 


001124 


1493 


007614 


112710 


000250 


1494 


007620 


112710 


000120 


1495 


007624 


112710 


000100 


1496 


007630 


111115 




1497 


007632 


023715 


001124 


1498 


007636 


001401 




1499 


007640 


104003 




1500 


00 7642 


005304 




1501 


007644 


001405 





3$ 



BEQ 


2$ 


ERROR* 


5 


TST 


(R3) + 


CMP 


R3,ttEDCHP3 


BEG 


3$ 


INC 


R2 


BR 


1$ 


DEC 


R4 


BEQ 


T5T34 


MOV 


DRCSC.RO 


MOV 


URCSD.R1 


BR 


111$ 



IMR REG ERROR 

INC EXPECTED DATA TABLE. 

CHECK FOR END 



;4************************ 

*TEST 34 TEST GROUP 

;************************* 

TST34; SCOPE 



001124 



111$: 



1$ 



JSR 

MOV 
MOV 
MOV 
JSR 
MOV 
MOV 

movb 

MOVB 

MOVB 

CMP 

BEQ 

ERROR t 

DEC 

BEQ 

MOV 

MOV 

BR 



PC.CLRCSR 

02, R4 

DRCSA.RO 

DRCSB.Rl 

PC.CLRIRR 

R1,$BDADR 

*377,$GDDAT 

OMIRR,(RO) 

OSIRR.CRO) 

CRD.CR5) 

$GDDAT,(R5) 

1$ 

3 

R4 

TST35 

DRCSC.RO 

DRCSD.R1 

111$ 



;SET UP TO SET NEXT IMR BIT 

{SET NEXT IMR BIT 

; DO GROUPS 1 AND 2 

jjBR IF BOTH GROUPS TESTED 

iCSRC ADDRESS 

;CSRD ADDRESS 

{DO GROUP 2 

**.**************************** + + ****** 

1 ,2 SET IRK INSTR. 
***************>*********************** 

5 CLEAR ALL CSRS 

{COUNTER FOR TWO GRUL^S 

jCSRA ADDRESS 

{CSRB ADDRESS 

{CLEAR IRR REGS WITH CHIP RESET 

{STORE AnDRESS 

sEXPECT^u DATA 

{LOAD MODE BITS TO READ IRR 

{SET IRR COMMAND 

;READ DATA PORT 



{ERROR ,IRR SHOULD BE SET 
{FINISHED BOTH GROUPS? 
{{BR IF BOTH GROUPS TESTED 
ISE1UP FOR GROUP 2 

{DO IRR TEST WITH GROUP 2 



;********* 4* 

♦TEST 35 

; *********** 

TST35{ SCOPE 

JSR 
MOV 
MOV 
MOV 
JSR 

111*: MOV 
CLR 
MOVB 
MOVB 
hOVB 
MOVB 
CMP 
BEQ 
ERROR 

l$j DEC 
BEO 



************** 

TEST GROUP 

************** 

PC.CLRCSR 

02, R4 

DRCSA.RO 

DRCSB.R1 

PC.CLRIRR 

R1.IBDADR 

♦GDDAT 

OMIRR.CRO) 

OSIRR.(RO) 

OCIPR.CRO) 

CRD.CR5) 

♦ GDDAT, (R5) 

1$ 

3 

R4 

TST36 



*********************************** 4 v** 

1,2 CLEAR IRR INSTR. 

************************************** 



{CLEAR ALL CSRS 

{COUNTER FOR TWO GROUPS 

{CSRA AODRESS 

{CSRB ADDRESS 

{CLEAR IRR REGS WITH CHIP RESET 

{STORE ADDRESS 

{EXPECTED DATA 

LOAD MOOE BITS TO READ IRR 

SET IRR BITS 

CLEAR IRR COMMAND 
{READ DATA PORT 



{ERROR ,IRR SHOULD BE CLEARED 
{FINISHED BOTH GROUPS? 
? {BR IF BOTH GROUPS TESTED 



N', 



CVDRCC DRVllJ DIAf, TS1 PRT1 MACRO M12UO 2 7 -DEC -83 09:55 PAGE 12-12 
T35 TEST GROUP 1,2 CU'AJ IRR INSTR, 



SEQ 0039 



1502 


00764" 


013700 


001352 


1505 


007< 


013701 


001356 


1504 


0076. .> 


000752 




1505 








150S 










00 7660 


000004 




1507 


007662 


004737 


013164 


1508 


007666 


012704 


000002 


1509 


007672 


012737 


007 734 


1510 


007700 


013700 


001342 


1511 


007704 


013701 


001346 


1512 


007710 


004737 


013234 


1513 


007714 


010137 


001122 


1514 


007 720 


012703 


013436 


1515 


007 724 


112710 


000250 


1516 


007730 


012702 


000110 


1517 


007734 


111337 


001124 


1518 


007740 


112710 


000120 


1519 


007744 


110210 




1520 


007746 


111115 




1521 


007/50 


023715 


001124 


1522 


007754 


001401 




1523 


007756 


104003 




1524 


007760 


005723 




1525 


007762 


02032/ 


013456 


1526 


007766 


001402 




1527 


007770 


005202 




1528 


007772 


000760 




1529 


007774 


005304 




1530 


007776 


001405 




1531 


010000 


013700 


001352 


1532 


010004 


01 '3/01 


001356 


1533 


010010 


000741 




1534 








1535 










010012 


000004 




\536 


010014 


004737 


01? 164 


1537 


010020 


012704 


000002 


1538 


010024 


012737 


010066 


1539 


010032 


013700 


001342 


1540 


010036 


013701 


001346 


1541 


010042 


004 737 


013234 


1542 


010046 


010137 


IOU22 


1543 


010052 


012703 


013374 


1544 


010056 


HP710 


000250 


1545 


010062 


012702 


000130 


1546 


010066 


111337 


001124 


1547 


010072 


112710 


000100 


1548 


010076 


110210 




1549 


010100 


111115 




1550 


010102 


023715 


001124 


1551 


010106 


001401 




1552 


010110 


104003 





MOV 


DRCSC.RO 


MOV 


DRCSD.R1 


BR 


111$ 



001110 



. *+*+*++***** 
*TE5T 36 

; ************ 

TST36j SCOPE 
JSR 
MOV 
MOV 
MOV 
MOV 
JSR 

111$: MOV 
MOV 
MOVB 
MOV 

1$: MOVB 
MOVB 
MOVB 
MOVB 
CMP 

beg; 

ERROR* 
2$: TST 

c:mp 

UEQ 
INC 
BR 
3$: DEC 
BEC 
MOV 
MOV 
BR 



; SETUP EOR GROUP 2 

;D0 IRR TEST WITH GROUP 2 

*************+****+/***************«******«*****«** 

TEST GROUP 1,2 Ci FAR SINGl E IRR BIT INSTR. 
************* 



****** ****** + ************* J ******4 l ***** 



PC.CLRCSR 

02, R4 

<H*.*l.PERR 

DRCSA.RO 

DRCSB.R1 

PC.CLRIRR 

Rl.iBDADR 

#EGCHP4,R3 

*MIRR,(RO) 

0CSIRR.R2 

CR3),$GD0AT 

4SIRR.CR0) 

R2.CR0) 

CR1),(R5) 

$G0DAT,CR5) 

2$ 

3 

CR3)* 

R3.&EDCHP4 

3$ 

R2 

1$ 

R4 

TST37 

DRCSC.RO 

DRCSDR1 

111$ 



; CLEAR ALL CSRS 
GROUP COUNTER 
SCOPE RETURN ADDRESS 
CSRA ADDRESS 
CSRB ADDRESS 

CLEAR IRR REGS WITH CHIP RESET 
Sm r " ADDRESS 
GOOD ;M" A PATTERN TABLE 
LOAD .10';?. BITS FOR IRR 



CLEAR 



a .» 



.E IRR BIT VALUE 



STORE EXPECTED 
SET ALL IRR BITS 
CLEAR SINGLE IRR BIT 
READ DATA PORT 



;IRR REG ERROR 

I INC EXPECTED DATA TABLE 

{CHECK FOR END 

;SET UP TO CLEAR NEXT IRR BIT 

{CLEAR NEXT IRR BIT 

;D0 GROUPS 1 AND 2 

} ;BR IF BOTH GROUPS TESTED 

jCSRC ADDRESS 

aCSRD ADDRESS 

{DO GROUP 2 



001110 



• *********** 
*TEST 37 
************ 

TST37: SCOPE 
JSR 
MOV 
MOV 
MOV 
hOV 
JSR 

111$: MOV 
MOV 
MOVB 
MOV 

1$: MOVB 
MOVB 
MOVB 
MOVB 
CMP 
BEQ 
ERROR 



*****************************+***+**+******+******** 

TEST GROUP 1,2 SET SINGLE IRR BIT INSTR, 
**************************************************** 



PC.CLRCSR 

02, R4 

$1$,$LPERR 

DRCSA.RO 

DRCSB.R1 

PC.CLRIRR 

Rl.iBDADR 

OBGCH. 5.R3 

OMIRR,(R0) 

0SSIRR.R2 

CR3), $GDDAT 

OCIRR.CRO) 

R2.CR0) 

CRn,CR5) 

iGDDAT.CRS) 

2$ 

3 



CLEAR ALL CSRS 

GROUP COUNTER 

SCOPE RETURN ADDRESS 

CSRA ADDRESS 

CSRB ADDRESS 

CLEAR IRR REGS WITH CHIP RESET 

STORE ADDRESS 

GOOD DATA PATTERN TABuE 

LOAD K'lE BITS FOR IRR 

SET SINGLE IRR BIT VALUE 

STORE EXPECTED 

CLEAR ALL. IRR BITS 

SET SINGLE IRR BIT 

READ DATA PORT 



}1PR REG t- 



CVDRCC DRV UJ DIAii TS* PRU MACRO M12O0 .*.' WC 83 O^W PAGE 1? 15 

T37 TEST GROIP l.J Sf T SINCiLh TRR BIT INSTR, 



SEC* 0040 



1553 


010112 


005723 




?.%\ 


rsT 


(fl^. 


lINC EXPtCTI-D DATA TABLE 


1554 


010114 


020327 


013414 




CMP 


R<,0EDCMP3 


iCHECK FOR END 


1555 


010120 


00140c % 






beq 


3* 




1556 


010122 


005202 






INC 


R2 


1 SET UP TO SET NEXT IRR BH 


1557 


010124 


000760 






BR 


1$ 


I SET NEXT IRR BIT 


1556 


010126 


005304 




3$: 


DFC 


R4 


lOO GROUPS 1 AND 2 


1559 


010130 


001405 






BEQ 


TST40 


jjBR IF BOTH GROUPS TESTED 


1S60 


010132 


013700 


00135? 




MOV 


DRCSC.RO 


jCSRC ADDRESS 


1561 


010136 


013701 


001356 




MOV 


DRCSD.R1 


iCSRD ADDRESS 


1562 


010142 


000741 






BR 


111$ 


jDO GROUP 2 


156 5 
1564 
















A. *^ VJ ~ 


010144 


000004 




• •TEST 


40 


TEST GROUP 1.2 


CLEAR IRR*IMR INSTR. 




TST40: 


SCOPt 






1565 


010146 


004737 


013164 




JSR 


PC.CLRCSR 


I CLEAR ALL CSRS 


1566 


010152 


012704 


000002 




MOV 


«2,R4 


1 COUNTER FOR TWO GROUPS 


156? 


010156 


013700 


001342 




MOV 


DRCSA.RO 


iCSRA ADDRESS 


1566 


010162 


013701 


001346 




MOV 


DRCSB.R1 


jCSRB ADORESS 


1569 


01C166 


004737 


013234 




JSR 


PC, CLRIRR 


iCLEAR IRR REGS WITH CHIP RESET 


1570 


010172 


010137 


001122 


111$: 


MOV 


R1.IB0ADR 


iSTOHE ADDRESS 


1571 


010176 


005037 


001124 




CLR 


IGOOAT 


lEXPECfED DATA 


1572 


010202 


112710 


000250 




MOVB 


♦MIRR.(RO) 


lLOAD MOOE BITS TO READ IRR 


1573 


010206 


112710 


000120 




MOVB 


*SIRR,(RO) 


jSET IRR BITS 


1574 


010212 


112710 


000060 




MOVB 


#SIMR,(RO) 


iSET IMP BITS 


1575 


010216 


112710 


000020 




MOVB 


♦CIRMR.(RO) 


I CLEAR IRR* IMR COMHANO 


1576 


010222 


111115 






MOVB 


(R1),(R5) 


iREAD DATA PORT FOR IRR 


15/7 


010224 


023715 


001124 




CMP 


IG0DAT,(R5) 




1578 


010230 


001401 






BEQ 


11 




1579 


010232 


104003 






ERROR* 


3 


lERROR .IRR SHOULD BE CLEARED 


1580 


010234 


112710 


000244 


1$: 


MOVB 


•MIMR.(RO) 


lLOAD MOOE BITS TO READ IMR 


1581 


010240 


111115 






MOVB 


(Ri;,(R5) 


iREAD IMR REG 


158? 


010242 


023715 


001124 




CMP 


♦G00AT.CR5) 




1583 


010246 


001401 






BEQ 


2t 




1584 


010250 


104005 






ERROR* 


5 


jIRR»IMR COMMAND DID NOT CLEAR IM 


1565 


010252 


005304 




2i: 


DEC 


R4 


iFINISHED BOTH GROUPS? 


1586 


010254 


001405 






BEQ 


TST41 


uBR IF BOTH GROUPS TESTED 


1587 


010256 


013700 


001352 




MOV 


DRCSC.RO 


1 SETUP FOR GROUP 2 


1588 


010262 


013701 


001356 




MOV 


DRCSD,R1 




1589 
1590 
1591 


010266 
010270 


000741 
000004 






BR 


1111 


iDO IRR^IMR TEST WITH GROUP 2 


■* «^ * *. 


I*TEST 


41 


TEST GROUP 1.2 


CLEAR SINGLE IRP*IMP SIT INSTR. 




TST41: 


SCOPE 






1592 


010272 


004737 


013164 




JSR 


FC.CLRCSR 


I CLEAR ALL CSRS 


1593 


010276 


012704 


000002 




MOV 


♦2.R4 


iGROUP COUNTER 


1594 


010302 


012737 


010340 001110 


MOV 


• H.ILPERR 


i SCOPE RETURN ADORESS 


1595 


010310 


013700 


001342 




MOV 


DRCSA.RO 


iCSRA ADORESS 


1596 


010314 


013701 


001346 




MOV 


0RCSB.R1 


iCSRB ADORESS 


1597 


010320 


004737 


013234 




JSR 


PC.CLRIRR 


iCLEAR IRR REGS WITH CHIP RESET 


1598 


010324 


010137 


001122 


lilt: 


MOV 


R1.IBDA0R 


iSTORE AOORESS 


1599 


010330 


012703 


013436 




MOV 


#eGCMP4,R3 


iGOOO DATA PATTERN TABLE 


1600 


010334 


012702 


000030 




MOV 


♦CSIRMR.R2 


iCLEAR SINGLE IRR»IMR BIT VALUE 


1601 


010340 


111337 


001124 


in 


MOVB 


(R3),IG0DAT 


iSTORE EXPECTED 


1602 


010344 


112710 


000250 




MOVB 


♦HIRR.CPO) 


iinAQ MODE BITS TQ READ IRR 


1603 


010350 


112710 


000120 




MOVB 


*SIRR t CR03 


(SET ALL IRR BITS 



CVDRCC DRVllJ PT'Ui TSt PRH MACRU M1200 .'■' DEC 83 09: r i r ) PAGE 12 14 

T41 TEST GROUP 1,2 Cl l.AR SINGLE 1RR»IMR HIT INSTR. 



SfcQ 0041 



1604 


010354 


112710 


000060 


1605 


010360 


110210 




1606 


010362 


111115 




1607 


010364 


023715 


001124 


1608 


010370 


001401 




16Q9 


010372 


104003 




1610 


010374 


112710 


000244 


1611 


010400 


111115 




1612 


010402 


023715 


001124 


1613 


010406 


001401 




1614 


010410 


104005 




1615 


010412 


005723 




1616 


010414 


020327 


013456 


1617 


010420 


001402 




1616 


010422 


005202 




1619 


010424 


000745 




1620 


010426 


005304 




1621 


010430 


001405 




1622 


010432 


013700 


001352 


1623 


010436 


013701 


00X356 


1624 


010442 


000730 




1625 








1626 










010444 


000004 




1627 


010446 


004737 


013164 


1628 








1629 








1630 








1631 








1632 


010452 


012704 


000002 


1633 


010*56 


004737 


013234 


1634 


010462 


010337 


001122 


1635 


010466 


112710 


000300 


1636 


010472 


112711 


000377 


1637 


010476 


112710 


000120 


1633 


010502 


112710 


000040 


1639 


010506 


112712 


000254 


1640 


010512 


005037 


001124 


1641 


010516 


111315 




1642 


010520 


023715 


001124 


1643 


010524 


001401 




1644 


010526 


104004 




1645 


010530 


112712 


000244 


1646 


010534 


012737 


C00377 001124 


164 7 


010542 


111315 




1648 


010544 


023715 


001124 


1649 


010550 


001401 




1650 


010552 


104005 




1651 


010554 


112712 


000240 


1652 


010560 


005037 


001124 


1653 


010564 


111315 




1654 


010566 


023715 


001124 


1655 


010572 


001401 




1656 


010574 


104006 




1657 


010576 


112712 


000250 



2$; 



3$: 



4$: 



j i • ••* 

TST42? 



111$: 



1*: 



2$: 



MOVH 

HOVB 

MOVH 

CMP 

BEQ 

ERROR* 

HOVB 

MOVB 

CMP 

BEQ 

ERROR* 

TST 

CMP 

BEQ 

INC 

BR 

DEC 

BEQ 

MOV 

MOV 

BR 



OSIMR.(RO) 
R2.CR0) 
(R1),(R5) 
IG00AT.CR5) 

2$ 

3 

OMIMR.(RO) 

(Rl),(R5) 

IGDDAT,(R5) 

3$ 

5 

(R3)» 

R3,*E0CHP4 

41 

R2 

1$ 

R4 

TST42 

DRCSC.RO 

DRCSO.Rl 

111$ 



l'>T ALL IMR BIT', 

jCLFAR SINGLE IRR*IMP HIT 

jREAQ DATA PORT FOP 1RR 



I IRR REG ERROR 

j SET UP TO READ IMR 

(READ IMR REGISTER 



I IMR REG ERROR 

i INC EXPECTED DATA TABLE 

I CHECK TOR ENO 

jSET UP TO CLEAR NEXT IRR* IMR 

iCLEAR NEXT IRR.IMR BIT 

j DO GROUPS 1 ANO 2 

iiBR IF BOTH GROUPS TESTED 

jCSRC AOORESS 

iCSRD ADDRESS 

I DO GROUP 2 



BIT 



{♦TEST 42 



TEST GROUPS 1.2 POP GROUP UNIQUENESS 



SCOPfc 
JSR 



PL.CLRCSR 



3$; 



MOV 


♦2.R4 


JSR 


PC.CLRIRR 


MOV 


R3. $BDAOR 


MOVB 


♦PACR.CRO) 


MOVB 


♦377, (Rl) 


MOVB 


♦SIRR.CRO) 


MOVB 


♦CIMR.CRO) 


MOVB 


*MACR,CR2) 


CLR 


$GO0AT 


MOVB 


(R3),(R5) 


CMP 


$G00AT,CR5) 


BEQ 


1$ 


ERROR* 


4 


MOVB 


*MIMR,CR2) 


MOV 


♦377.IGODAT 


MOVB 


(R3),(R5) 


CMP 


$G0DAT,CR5) 


BEQ 


2$ 


ERROR* 


5 


MOVB 


•MISR,CR2) 


CLR 


$GO0AT 


MOVB 


(R3),(R5) 


CMP 


IGDDAT.CR5) 


BEQ 


3$ 


ERROR* 


6 


MOVB 


#MIRRi(R2) 



CLEAR AIL CSRS 

CSRA • RO 

CSR6 • Rl 

CSRC • R2 

CSRO ■ R3 

COUNTFR FOR TESTING TWO GROUPS 

CLFAR IRR REGS WITH CHIP RESET 

STORE ADDRESS 

PRESELECT ACR FOR WRITING 

WRITE INTO OATA PORT FOR ACR 

SET IRR TO ALL l'S 

CLEAR IMR 

LCD MOOE TO READ ACR 

EXPECTED 

STORE DATA FOR COMPARE 

CHECK ACR RESULTS 

ERROR, OTHER GROUP ACR SHOULD BE CLEARED 

CHANGE TO IMR REGISTER 

STORE EXPECTED 

READ IMR 

SHOULD BE ALL l'S 

ERROR .OTHER GROUP IMR SHOULD BE SET 

LOAD MOOE BITS FOR ISR 

STORE EXPECTED 

READ ISR 

ISR SHOULD BE CLEARED 

ISR REG ERROR 

LOAD MODE BITS FQR IRR 



CVORCC IWUJ L^lAii TS1 PRT1 MACRO M1200 ,»? DK -83 09-r> r » PAGE 12 15 

T42 TEST GROUPS 1 , ^ FOR GROUP UNIQUENESS 



SfQ 0042 



1658 


010602 


111315 








MOVB 


(HAJ,lHr» ) 


iHtML) IMH 




1659 


010604 


023715 


001124 






CMP 


*GDDAT,(R5) 


{IRR SHOULD BF CLEARED 




1660 


010610 


001401 








Bt-U 


4S 






1661 


010612 


104003 








ERROR* 


3 


{ ERROR .OTHER GROUP IRR SHOULD BE 


Cl EARED 


1662 


010614 


005304 






4$: 


DEC 


R4 


j TEST GROUPS 1 ANC 2 




1663 


010616 


001415 








BEQ 


TST43 


uBR IE BOTH GROUPS TESTED 




1664 


010620 


004737 


013164 






JSR 


PC.CLRCSR 


j CLEAR ALL CSRS 




1665 


010624 


013700 


001352 






MOV 


DRC5C,R0 


i GROUP 2 CONTROL PORT 




1666 


010630 


013701 


001356 






MOV 


DRCSD.R1 


{GROUP 2 DATA PORT 




1667 


010634 


013702 


001342 






MOV 


DRCSA.R2 


{GROUP 1 CONTROL PORT 




1666 


010640 


013703 


001346 






MOV 


DRCSB.R3 


{GROUP 1 DATA PORT 




1669 


010644 


004737 


013234 






JSR 


PC.CLRIRR 


{CLEAR IRR REGS UHH CHIP RESET 




1670 
1671 
1672 


010650 


000704 








BR 


1111 


{TEST GROUP 2 ACR UNIQUENESS 




;*TEST 


43 


TEST STATUS BITS GINT , S2. SI . S0,GP1 ,2 














;j**A****A********* + *****#**********^*********** ******* *#******,** 






010652 


000004 






TST43: 


SCOPE 








1673 


010654 


004737 


013164 






JSR 


PC.CLRCSR 


{CLEAR ALL CSRS 




1674 


010660 


013700 


001342 






MOV 


DRCSA.RO 






1675 


010664 


013701 


001346 






MOV 


DRCSB.R1 






1676 


010670 


012703 


000002 






MOV 


♦2.R3 


jOO TWO GROG'S 




1677 


010674 


012704 


000120 




111** 


MOV 


♦120.R4 


{EXPECTED STATUS BITS 




1673 


010700 


005077 


170436 






CLR 


80RCSA 


iINIT CSRA 




1679 


010704 


005077 


170442 






CLR 


8DRCSC 


{INIT CSRC 




1680 


010710 


012702 


013274 






MOV 


•BGPAT1.R2 


{EXPECTED IRR PATTERN 




1681 


010714 


112760 


000001 


000001 




MOVB 


•6IT0.KR0) 


{CSR TO OUTPUT MOOE 




1682 


010722 


112777 


000204 


170412 




MOVB 


♦204.80RCSA 


{POLLED MOOE FOR CSRA .GROUP 1 




1683 


010730 


112777 


000204 


170414 




MOVB 


♦204.80RCSC 


{POLLED M00€ FOR CSRC, GROUP 2 




1684 


010736 


112710 


000020 






MOVB 


OCIRMR.CRO) 


{CLEAR IMR ♦ IRR 




1685 


010742 


012737 


000070 


001372 




MOV 


♦SSIMR.IMRLOC 


iSTORt C00€ FOR SINGLE IMR 




1686 


010750 


012737 


000130 


001376 




MOV 


fSSIRR.IRRLCC 


{STORE COOE FOR SINGLE IRR 




1687 


010756 


010037 


001122 




112$! 


MOV 


RO.IBOAOR 


{CSR CHIP COMMANO ADDRESS 




1688 


010762 


010437 


001124 






MOV 


R4,$GO0AT 


{EXPECTED DATA 




1689 


010766 


113710 


C01376 






MOVB 


IRRLOC.(RO) 


{SET SINGLE IRR BIT 




1690 


010772 


111015 








MOVB 


(R0).(R5) 


{CHECK STATUS 




1691 


010774 


042715 


000007 






BIC 


>7,(R5) 


{{ *** VDRCA1 ADDS THIS *** : 


• OPM 


1692 


OUOOO 


023715 


001124 






CMP 


•GDDAT.CR5) 






1693 


011004 


001401 








BEQ 


It 






1694 


011006 


104007 








ERROR* 


7 


{CHIP STATUS ERROR 




1695 


011010 


005037 


001124 




1$: 


CLR 


•GOOAT 






1696 


011014 


010137 


001122 






MOV 


Rl, IBDADR 


jCSR CHIP DATA ADDRESS 




1697 


011020 


111237 


001124 






MOVB 


(R2).IG00AT 






1698 


011024 


112710 


000250 






MOVB 


<*MIRR,(RC^ 


{READ IRP 




1699 


011030 


111115 








MOVB 


(RD.CR5) 






1700 


011032 


023715 


001124 






CMP 


IG0DAT,(R5) 


{CHECK IRR 




1701 


011036 


001401 








BEQ 


21 






1702 


011040 


1C4003 








ERROR* 


3 


{IRR ERROR 




1703 


011042 


010037 


001122 




2$j 


MOV 


RO, I80ADR 






1704 


011046 


113710 


001372 






MOVB 


IMRLOC.(RO) 


{SET IMR BIT 




1705 


011052 


012737 


000320 


001124 




MOV 


♦3?0,*G0DAT 


jCSR EXPECTED DATA 




1706 


011060 


111015 








MOVB 


(R0),(R5) 






1707 


011062 


042715 


000007 






BIC 


♦7,(R5) 


{CLEAR UNOEFINED BITS 




1708 


011C66 


023715 


001124 






CMP 


•GDDAT.CR5) 






1709 


011072 


001401 








BEQ 


3* 






1710 


011074 


104007 








ERROR* 


7 


{CHIP STATUS ERROR 




vu 


011076 


010137 


001122 




3$! 


MOV 


ri, ;bdadr 







I /I 



cviwcc DRviu Dim; tsi prtx macro mipuo j? -dec 63 osiss page i;> ib 

T43 TEST STATUS BITS GINT , S3, SI , SO.GPl ,5 



sea 004 3 



1712 
1715 
1714 
1715 
1716 
1717 
1718 
1/19 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 



1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
3 749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1756 
1759 
1760 
1761 
1762 
1763 
1764 
1765 



011102 
011106 
011U2 
011114 
011120 
011122 
011124 
011126 
011132 
011134 
011140 

011144 
011146 
011152 
0111V. 
011156 
013.162 
011166 



011172 
011174 



011200 
011206 
011212 
011220 
011226 
011230 
011232 
011236 
011242 
011246 
011252 
011256 
011264 
011270 
011274 
011276 
011302 
011310 
011512 
011316 
011322 
011324 
011330 
011332 
011334 
011340 
011346 



011237 
112710 
111115 
023715 
001401 
104005 
005722 
020227 
001407 
005237 
005237 

000240 
000137 
005303 
001406 
013700 
013701 
000137 



000004 
004737 



012737 
012704 
112760 
112761 
105010 
105012 
112710 
112712 
112710 
112712 
011460 
012760 
112710 
112712 
005114 
011460 
012 760 
005114 
010137 
111437 
111115 
023715 
001401 
104003 
010337 
116437 
042737 



001124 
000244 

001124 



013314 

001376 
001372 



010756 



001352 
001356 
010674 



4$: 

jjGPA 
5$: 



i*TEST 



013164 



011252 001110 

000001 000001 
000001 000001 



000204 

000204 

000250 

000250 

00OO02 

177777 000002 

000020 

000020 

000002 

1777 7/ 000002 

001122 
001124 

001124 



TST44: 



1$: 



2$: 



MOV 
MDVR 

MOVB 

CMP 

BE'J 

ERROR* 

TST 

CMP 

BEQ 

INC 

INC 

INC 

NOP 

JMP 

DEC 

BEQ 

MOV 

MOV 

JMP 



44 



SLOPE 
JSR 



(R2),*GDDAT 

OM I MR , ( RO ) 

CR1),(R5) 

$GDDAT,(R5) 

4* 

5 

CR?)» 

R2,<k;dchpi 

5$ 

IRRLOC 
IMRLOC 
R4 

112$ 

R3 

TST44 

DRCSC.RO 

DRC50.R.1 

111$ 



(EXPECTED DATA 
i READ IMR BITS 
I SAVE IMR READ 



l IMR ERROR 

jNEXT EXPECTED FOR 

j CHECK FOP END 



IMR 



XRR 



;NEXT IRR BIT 

;NEXT IMR BIT 

» INDEX EXPECTED STATUS 

j j ♦♦♦ VDRCA1 DELETES INC RA 

jDO NEXT STATUS CHECK 

l FINISHED BOTH GROUPS? 

I I BR IF EQUAL 



;D0 NEXT GROUP 



a*« ;J GPA 



TEST POLLED MODEjCSRS A.B-OUT 



C.D-IN, ACTIVE LOW 



PC.CLRCSR 



CONTROL 
DATA 
CONTROL 
DATA 



001122 3* 

000001 001124 
000360 001124 



MOV 


Oil, ILPERR 


MDV 


•flFGPAl .R4 


MOVB 


•BITO.KRO) 


MOVB 


•BIT0.1CR1) 


CLRB 


(RO) 


CLRB 


(R2) 


MOVB 


0204, CRO) 


MOVB 


♦204, CR2) 


MOVB 


*MIRR,(RO) 


MOVB 


*HIRR,(R2) 


MOV 


(R4),2(R0) 


MOV 


•-1.2CR0) 


MOVB 


«CIRMR»(R0) 


MOVB 


«CIRMR,(R2) 


COM 


CR4) 


MOV 


(R4),2(RO) 


MOV 


♦-1.2CR0) 


COM 


CR4) 


MOV 


R1.IBDADR 


MOVB 


(R4),IG0DAT 


MOVB 


(Rl J.(R5) 


CMP 


IGDDAT.CR5) 


BEQ 


3$ 


ERROR* 


3 


MOV 


R3.IBDADR 


MOVB 


1CR4),(GD0AT 


BIC 


0360.IGDDAT 



CLEAR ALL CSRS 
RO • CSRA -GROUP 1 
Rl - CSRB-GKOUP 1 
R2 • CSRC -GROUP 2 
R3 - CSRD-GROUP 2 
SET FOR SCOPF RETURN 
START OF PATTERN TAB'.E 
Ski LSKM IU UUlHUl nuot 
SET CSRB TO OUTPUT MOOE 
CHTP RESET GROUP 1 CSRA 
CHiH RESET GROUP 2 CSRC 
LOAD MOOE BITS FOR POLLED MOOE.GR 1 
LOAD MODE BITS FJR POLLEO M0DE.GR2 
LOAD BUS TO READ IRR GROUP 1 
LOAD BITS TO READ IRR GROUP 2 
SET PATTERN D6RA FROM H TO L 
FORCE ALL BITS IN DBORA HIGH 
CLEAR IMR ♦ IRR GttOJP 1 
CLEAR IMR* IRR GROUP 2 
COMPLEMENT TABLE DATA 
XMIT CSR 

FORCE ALL BITS HIGH AGAIN 
RESTORE TABLE DATA 
GROUP 1 DATA PORT 

I READ IRR. GROUP 1 



5 IRR ERROR. GROUP 1 
iGROUP 2 DATA PORT 
jBUILO EXPECTED DATA 
jSAVE BITS 0-3 



CVDPCC Dnvilvl DIAC; TS1 PRT1 MACRO M120O :•/ WC 83 09:55 PAGE 12 1/ 

T44 TEST POLLED MODEiCSRS A.B-OUT C ,D*IN, ACTIVE LOW 



SEQ 0044 



1766 


011354 


052737 


000100 


001124 


176/ 


011362 


111315 






1768 


011364 


023715 


001124 




1769 


011370 


001401 






1770 


011372 


104003 






1771 


0113 74 


005762 


000002 




1772 


011400 


052737 


000020 


001124 


1 773 


011406 


111315 






1774 


011410 


023715 


001124 




1775 


011414 


001401 






1776 


011416 


104003 






1777 


011420 


005061 


000002 




1778 


011424 


052737 


000200 


001124 


1779 


011432 


111315 






1780 


011434 


023715 


001124 




1781 


011440 


001401 






1782 


011442 


104003 






1783 


0114*4 


005763 


000002 




1784 


011450 


052737 


000040 


001124 


1785 


011456 


111315 






1786 


011460 


023715 


001124 




1787 


011464 


001401 






1788 


011466 


104003 






1789 


011470 


005724 






1790 


011472 


020427 


013572 




1791 


011476 


001265 






179? 










1793 










1794 


011500 


000004 






1795 


011502 


004737 


013164 




1796 










1797 










1798 










1/9S 










1800 


011506 


012704 


000002 




1801 










180,7 










1803 










1804 










1805 


011512 


112760 


000001 


000001 


1806 


011520 


112761 


000001 


000001 


1607 


011526 


012760 


177777 


000002 


1808 


011534 


105010 






1809 


011536 


105012 






1810 


011540 


112710 


000204 




1811 


011544 


112712 


000204 




1812 


011550 


112710 


0OOO20 




1813 


011554 


112712 


000020 




1814 


011560 


005760 


000002 




1815 


011564 


012737 


000320 


001124 


1816 


011572 


010037 


001122 




1817 


011576 


111015 






1818 


011600 


042715 


00000? 




1819 


011604 


023715 


001124 





4$: 



5$: 



6$: 



7$; 



Dili 

MOVB 

CMP 

BEQ 

ERROR* 

TST 

BIS 

MOVB 

CMP 

BEQ 

ERROR* 

CLR 

BIS 

MOVB 

CMP 

BEQ 

ERROR - 

TST 

BIS 

MOVB 

CMP 

BEQ 

ERROR* 

TST 

CMP 

BNE 



*100,*GDDAT 

CR3) t CR5) 

iGDDAT,(R5) 

4$ 

3 

2CR2) 

*20,$GDDAT 

(R3),CR5> 

$GDDAT,(R5) 

5$ 

3 

2CRI) 

*20C,iGDDAV 

(R3).(R5) 

*GDDAT,(R5) 

6* 

3 

2CR3) 

#40,*GDDAT 

(R3),(R5) 

$GDDAT.CR5) 

7$ 

3 

(R4)* 

R4 , OENDDAT 



(EXPECTED 0-3.URPLY 6(C) 
jREAD IRR BITS, GROUP 2 



jIRR ERROR, GROUP Z: 

I READ DBRC FOR RPl. . 4CA) 

jSTORE EXPECTED 

,READ IRR BITS, GROUP 2 



j IRR ERROR. CROUP 2 

; CLEAR DQRB FOR RPi 7CD) 

j EXPECTED 

jREAD IRR BITS GROUP 2 



}IRR ERROR, GROUP 2 
;READ DBRD FOR RPLY 5(B> 

{ READ IRR BITS GR0UP2 

;GET NEXT PATTERN 
;IRR ERROR. GROUP 2 
> INDEX DATA TAPLE 
i CHECK FOR ENO 
iDO NEXT PATTERN 



j j ************ 
j*TEST 45 

} j ************ 

TST45? SCOPE 



*********»i****************************±************ 

TEST GROUPS 1,2 IN POLLED MCDE.NO REPLY 

*************************************************** 



111$: 



JSR 


PCCLRCSR 


CLEAR ALL CSRS 
RO - CSRA-GROUP 1 CONTROL 
Rl - CSRB-GROUP 1 DATA 
R2 - CSRC -GROUP 2 CONTROL 
R3 » CSRD-GROUP 2 DATA 


MOV 


02 1 R4 


TUO PASSES 

FIRST PASS CSRA.CSRB • OUTPUT 
CSRC.CSRO - TNPUr 

sec pass csrc.csrd • ou:pui 
csra.csrb • input 


MOVB 


*3IT0,1CR0) 


SET CSR TO OUTPUT HOOF 


MOVB 


08ITO.KR1) 


SET CSR TO OUTPUT MOOE 


MOV 


•-1.2CR0) 


SET ALL ONES OBR FOR H TO L 


CLRB 


CRO) 


CHIP RESET GROUP CSR 


CLRB 


(R2) 


CHIP RESET GflOUP CSR 


MOVB 


♦204, (RO) 


LOAD MOOE BITS FOR POLLED MODE 


MOVB 


0204, fR2) 


LOAD MOOE BITS FOR POLLED MODE 


MOVB 


*CIRMR,CRO) 


CLEAR IMP* IRR 


MOVB 


♦CIRMP.CR2) 


CLEAR TMR*IRR 


TST 


2(R0) 


READ DBR IN OUTPUT MODE. NO REPLY 


MOV 


*320.$GDDAT 


STORE EXPECTED 


MOV 


R0.5BDADR 


STORE ADDRESS 


MOVB 


(R0),(R5^ 


READ STATUS 


BIC 


07. (R5) 


CLEAR LMDEFINED BITS 


CMP 


$GDDAT,(R5) 


CHECK STATUS 



CVDRCC DRV11J P1AG TS! PRU MACRO M1200 2/ DEC-S3 09:55 PAGE 13-18 

T45 TEST GROUPS 1.2 IN POLLED MODE, NO REPLY 



SFQ 0045 



1820 
1821 
1622 
1823 
1824 
1825 
1826 
1827 
1328 
1829 
1830 
183i 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
184 3 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
18^3 
1864 



1865 
1866 
1867 
1868 

1869 
1870 
1871 
1872 
1873 



011610 
011612 
011614 
011620 
01162? 
011626 
011632 
011634 
011636 
011644 
011650 
011656 
011662 
011666 
011672 
011674 
011700 
011702 
011706 
011710 
011716 
011722 
011724 
011726 
011732 
011736 
011742 
011744 
011750 
011752 
011756 
011760 
011766 
011772 
011774 
011776 
012000 
012002 
012006 
012012 
012016 
012022 
012026 



012030 
012032 



012036 
012044 
012050 
012056 



001401 
104007 
010237 
111215 
042715 
023715 
001401 
104007 
012762 
005 761 
012763 
010137 
112710 
0C5037 
111115 
023715 
001412 
005737 
001406 
012737 
023715 
001401 
104003 
005037 
010337 
112712 
111315 
023715 
001412 
005737 
001406 
012737 
023715 
001401 
104003 
005304 
001413 
004737 
013700 
013701 
013702 
013703 
000631 



000004 
004737 



012737 
012704 
112762 
112763 



001122 

000007 
001124 



000000 
000002 
OOOOOO 
001122 
000250 
001124 

001124 

017344 

000300 
001124 

001124 
001122 

000250 

001124 
017344 

ooooeo 

001124 



013164 
001352 
001356 
001342 
001346 



013164 



012110 
013272 
000001 
000001 



1*: 



000002 
000002 



2$: 



001124 



100$; 
3$: 



001124 



101$: 
4$: 



BEQ 

ERROR f 

MOV 

MOVB 

BIC 

CMP 

BEQ 

ERROR* 

MOV 

TST 

MOV 

MOV 

MOVB 

CLR 

MOVB 

CMP 

BEQ 

TST 

BEQ 

MOV 

CMP 

BEQ 

ERROR ♦ 

CLR 

MOV 

MOVB 

MOVB 

CMP 

BEQ 

TST 

BEQ 

MOV 

CMP 

BEQ 

ERROR* 

OEC 

BEQ 

JSR 

MOV 

MOV 

MOV 

MOV 

BR 



1$ 

7 

R2,$BDAL>R 

CR2),(R5) 

07, (R5) 

♦GDDAT.CR5) 

2$ 

7 

00.2CR2) 

2CR1) 

00.2CR3) 

R1.IBDADR 

OMIRR.CRO) 

$GDDAT 

(RD.CR5) 

$GD0AT,(R5) 

3$ 

KXTFLAG 

1001 

03OO.$GDDAT 

$GDDAT,(R5) 

3$ 

3 

$GDDAT 

R3,$BDADR 

♦MIRR.CR2) 

(R3),(R5) 

$GDDAT,(R5) 

4$ 

KXTFLAG 

101$ 

060, $GDDAT 

$GDDAT,(R5) 

4$ 

3 

R4 

TST46 

PC.CLRCSR 

DRCSC.RO 

DRCSD.R1 

DRCSA.R2 

DRCSB.R3 

111$ 



;CHIP STATUS ERROR 

j STORE ADDRESS 

j READ STATUS 

jCLEAR UNDEFINED BITS 



j CHIP STATUS ERROR 

j WRITE ONLY, DBR INPUT MODE FOR NO HEP: * 

{READ DBR OUTPUT MODE, NO REPL i 

;WRITE ONLY, DBR INPUT MODE.NO REPLf 

1 CHIP DATA PORT 

jLOAD BITS TO READ IRR 

jIRR SHOULD BE ZERO 

j READ IRR 



; ON KXT11, RFAD-RFFDRK-WRTTF 
;...AT 2$ UPSETS EXPECTED IRR 
i TRY THE ALTERNATE VALUE. 



;IRR ERROR* 

;CHIP DATA PORT 

I LOAD MODE BITS TO READ IRR 

;READ IRR BITS 



1 ON KXT11, DITTO. 

j TRY THE ALTERNATE VALUE, 



, IRR ERROR* 

jFlNISHED TWO PASSES 

j j BR IF EQUAL 

I CLEAR ALL CSRS 

I SET UP FOR NEXT PASS 



jDO NEXT PASS 



f sGPA 
; ;GPA 
: iGPA 
j ;GPA 
i iGPA 
i ;GPA 
;;GPA 



GPA 
GPA 
GPA 
GPA 
GPA 
GPA 



001110 

000001 
000001 



»*TEST 46 TEST POLLED MOOEjCSRS CD-OUT A .B-IN, ACTIVE LOU 

TST46: SCOPE 

i CLEAR ALL CSRS 

iRO - CSRA-GROUP 1 CONTROL 

»R1 - CSRB-GROUP 1 DATA 

iR2 - CSRC-GROUP 2 CONTROL 

;R3 - CSRD-GROUP 2 DATA 

j SCOPE LOOP RETURN 

, PATTERN TABLE 

{SET CSRC TO OUTPUT MODF 

j SET CSRD TO OUTPUT MODE 



JSR 



MOV 
MOV 
MOVB 
MOVB 



PC.CLRCSR 



*1$,$LPERR 
06EGPAT,R4 
06IT0.1CR2) 
0BIT0.1CR3) 



CVDRCC 0KV11J OlAG TS^ PRT1 MACRO M1200 27 DF.C-83 09:55 PAGE 12-19 
T46 TEST POLLED MODEjCSRS C.D»OUT A, B*- IN, ACTIVE LOW 



SEQ 0046 



012064 
012066 
012070 
012074 
012100 
012104 
012110 
012114 
012122 
012126 
012132 
012134 
012140 
012146 
012150 
012154 
012160 
012162 
012166 
012170 
012172 
012176 
012204 
012212 
012220 
012222 
012226 
012230 
012232 
012236 
01^244 
012246 
012252 
012254 
012256 
012262 
012270 
012272 
012276 
01230C 
012302 
012306 
012314 
012316 
012322 
012324 
012326 
012330 
012334 



1874 
1875 
1876 

1877 

1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
3917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 



012336 
1927 012340 



105010 
105012 
112710 
112712 
112710 
112712 
011462 
012762 
112710 
112712 
005114 
011462 
012762 
005114 
010137 
111437 
111115 
023715 
001401 
104003 
010337 
116437 
042737 
052737 
111315 
023715 
001401 
104003 
005760 
052737 
111315 
023715 
003401 
104003 
005063 
052737 
111315 
023715 
001401 
104003 
CHJ5761 
052737 
111315 
023715 
001401 
104003 
005724 
020427 
001265 



000204 
000204 
000250 
000250 
000002 
177777 
000020 
000020 

000002 
177777 

001122 
001124 

001124 



001122 
000001 
000360 
000020 

001124 



000002 
000100 

001124 



000002 
000040 

001124 



0OO002 
000200 

001124 



013572 



000002 



000002 



1$: 



2$: 



C0U24 
001124 
001124 



3$: 



001124 



4$: 



001124 



5$s 



001124 



6$; 



7$: 



CLRB 

CLRB 

MOVB 

MQVB 

MOVB 

MOVB 

MOV 

MOV 

MOVB 

MOVB 

COM 

MOV 

MOV 

COM 

MOV 

MOVB 

MOVB 

CMP 

BEQ 

ERROR* 

MOV 

MOVB 

BIC 

BIS 

MOVB 

CMP 

BEQ 

ERROR* 

TST 

BIS 

MOVB 

CMP 

BEQ 

ERROR* 

CLR 

BIS 

MOVB 

CMP 

BEQ 

ERROR* 

TST 

BIS 

MOVB 

CMP 

BEQ 

ERROR* 

TST 

CMP 

BNE 



(RO) 

CR2) 

0204, (RO) 

0204 ,CR2) 

OMIRR.(RO) 

*MIRR.(R2) 

CR4),2CR2) 

4-1.2CR2) 

*CIRMR,(RO) 

0CIRMR.CR2) 

CR4) 

(R4).2(R2) 

♦-1.2CR2) 

CR4) 

Rl.tBDADR 

(R4).*GDDAT 

(R1),(R5) 

$GDDAT,CR5) 

3$ 

3 

R3.$BDADR 

1(R4),$GDDAT 

*560,iGDDAT 

$20.*GDDAT 

(R3).(R5) 

IGDDAT.CR5) 

41 

3 

2(RC) 

*100,*GDDAT 

CR3).(R5) 

IGDDAT.CR5) 

51 

3 

2(R3) 

*40,*GDCAT 

(R3),(R5) 

IGD0AT.CR5) 

6$ 

3 

2(R1) 

♦200.IGDDAT 

(R3).(R5) 

IGDDAT.CR5) 

7$ 

3 

(R4)» 

R4.0ENDDA1 

1* 



; CHIP RESET GROUP 1 CSRA 

I CHIP RESET GROUP 2 CSRC 

jLOAD BITS FOR POLLED MODE.GR 1 

I LOAD BITS FOR POLLED M0DE.GR2 

jLOAD BITS TO READ IRR GRP 1 

I LOAD BITS TO READ IRR GRP 2 

, SET PATTERN DBRC FOR H TO t. 

j FORCE ALL BITS IN DRDBC HIGH 

j CLEAR IMR*IRR GROUP 1 

j CLEAR IMR*IRR GROv.'' 2 

I COMPLEMENT TABLE DATA 

;XMIT CSR 

(FORCE ALL BITS HIGH 

{RESTORE TABLE DATA 

i GROUP ) OATA PORT 

{READ IRR .GROUP 1 



jIPR ERROR. GROUP 1 
{GROUP 2 DATA PORT 

;SAVE BITS 0-3 

{EXPECTED 0-3.URPI.T 4CAj 

j READ IRR BITS. GROUP 2 



j IRR ERROR. GROUP 2 

j READ DBRA FOR RPLY 6(C) 

j STORE EXPECTED 

jREAD IRR BITS. GROUP 2 



j IRR ERROR. GROUP 2 

I CLEAR DBRD ^OR RPY 5(B) 

{EXPECTED 

{READ IRR BITS GROUP 2 



;IRR ERROR. GROUP 2 

j READ D6RB FOR RPLY 7(D) 

{READ IRR BITS GRUUP2 



»JR<- 
? JR? 



JR'J 



j IRR ERROR. GROUP 2 
I INDEX DATA TABLE 
,CHECK FOR END 
{DO NEXT PATTERN 



000004 

004737 013164 



}*TEST 47 TEST IRR BITS WITH DATA PAT. .POLLED MODE, ACT. HIGH 

TST47: SCOPE 

JSR PC.CLRCSR {CLEAR ALL CSR5' 



CVORCC DRVIUJ DIAt; TST PRTl MACRO Ml POO ;.?.' DEC -83 ( ) : 55 PAGE 12-20 
T47 TFST IRR BITS WITH DATA PAT. .POLLED MODE, ACT, HIGH 



SEC1 004 7 



1928 
1929 
1950 
1931 
1932 
1933 
1934 
1^»35 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1953 
1959 
1960 
1961 
1962 



1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
19/2 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
19SQ 



012344 
012350 
012356 
012362 
012366 
012372 
012400 
012406 
012412 
012420 
012424 
012430 
012436 
012442 
012446 
012452 
012456 
012460 
012464 
012466 
012470 
012474 
012502 
012510 
012516 
012524 
012526 
012532 
012534 
012536 
012540 
012544 



01254t 
012550 
012556 
012562 
012566 
012572 
012600 
012606 
012612 
012620 
01262? 
012624 
012630 
012634 
012636 
012640 
012646 
012652 
012654 
012€60 



012703 
012737 
013700 
013701 
013702 
112760 
112761 
112710 
112760 
005060 
112710 
112760 
011360 
010137 
112710 
111337 
111115 
023715 
001401 
104003 
010237 
112760 
116337 
042737 
052737 
111215 
023715 
001401 
104003 
005725 
020327 
001325 



000004 
012737 
004737 
013700 
013701 
112760 
112761 
010037 
012737 
000005 
011015 
042715 
023715 
001401 
104002 
012737 
010137 
011115 
023715 
001401 



013272 
000001 
001342 
001346 
001356 
000001 
O0O001 
000224 
000224 
000002 
000020 
000020 
000002 
001122 
000250 
001124 

001124 



001122 
000250 
000001 
000360 
000100 

001124 



013572 



000001 
013164 
001342 
001346 
001001 
000001 
001122 
100300 



000007 
001124 



100000 
001122 

001124 



001110 

000001 
000001 

000010 
000010 



1$ 



2$ 



000010 
001124 
001124 
001124 



3$ 



MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

MOVB 

MOVB 

MOVB 

CLR 

MOVB 

MOVB 

MOV 

MOV 

MOVB 

MOVB 

MOVB 

CMP 

BEQ 

ERROR > 

MOV 

MOVB 

MOVB 

BIC 

BIS 

MOVB 

CMP 

BEQ 

ERROR* 

TST 

CMP 

BNE 



0BEGPAT.R3 

n.*LPERR 

DRCSA.RO 

DRCSB.R1 

DRCSD.R2 

#6IT0 ( 1CR0) 

OBITO.lCRl) 

0224, CRO) 

0224.10CR0) 

2CR0) 

PCIRMR.(RO) 

0CIRMR.10CR0) 

(R3),2(R0) 

R1.I8DA0R 

*MIHR,(RO) 

CR3),iGDDAT 

CRD.CR5) 

IGDDAT.CR5) 

2$ 

3 

R2.IB0ADR 

*MIRR,10(RO) 

1(R3),IGDDAT 

0360,*GDDAT 

0100.IGDDAT 

CR2).(R5) 

♦GDDAT.CR5) 

3$ 

3 

CR3)* 

R3,*ENDDAT 

1* 



;GET DATA PATTERN TABLE 
{SET UP SCOPE ADDRESS 



iC5R* OUTPUT MODE 

{CSRB OUTPUT MODE 

{LOAD MODE BITS FOR POLl.FD 

;LOAD MODE BITS FOR POLLED 

} CLEAR DBRA 

j CLEAR IMR *IRR GROUP 1 

l CLEAR IMR f IRR GROUP 2 

j STORE PATTERN INTO D6RA 

iCSRB ADDRESS 

;LOAD BITS TO READ IRRl 



MODF.Gf i 
M0DE.GP2 



{READ IRR.GP1 



I IRR ERROR, GP1 
iCSRD ADDRESS 
;SET MODE TO READ IRR 
{BUILD EXPECTED DATA 
»BITS 0-3 EXPECTED 
i "A" REPLY EXPECTED 
j READ IRR2 



j IRR GROUP 2 

{INDEX DATA TABLE 

j CHECK FOR PATTERN END 

{DO NEXT PATTERN 



BITS GROUP 2 



001160 



000001 
000001 

001124 



001X24 1$ 



; ; ************* 

{♦TEST 50 

• j************* 

TST50: SCOPE 
MOV 
JSR 
MOV 
MOV 
MOVB 
MOVB 
MOV 
MOV 
RESET 
MOV 
BIC 
CMP 
BEQ 
ERROR* 
MOV 
MOV 
MOV 
CMP 
BEQ 



♦ ♦•♦♦♦♦•♦A**********************************,****,* 4 

TEST CSHA ANO CSRB WITH RESET 
***********************************************,>*/, 



♦1.ITIMFS 

PC.CLRCSR 

DRCSA.RO 

DRCSB.Rl 

♦IE!BIT0.1(RO) 

«BIT0.1CR1) 

RO.IBDADR 

0100300, IGODAT 

(R0).CR5) 

07.CR5) 

*GDDAT,(R5) 

1$ 

2 

0100000, iGDDAT 

R1.IBDADR 

(R1),(R5) 

tGDDAT,CR5) 

TST51 



i iDO 1 ITERATION 
l CLEAR ALL C5RS 



iCSRA TO OUTPUT MODE 

{SET CSRB TO OUTPUT MODE 

; STORE CSRA ADDRESS 

iMDY ♦ CHIP STATUS EXP'D 

{INITIALIZE 

{STORE REC'D 

{CLEAR UNDEFINED BITS 

{MAKE COMPARE 

iCSRA ERROR ON RESET 
{STORE EXPECTED 
j CHECK CSRB 
jSrOR£ IN IBDDAT 
j MAKE COMPARE 
j j BR IF EQUAL 



w\ 



CVORCC OHVU.J DIAi; TST PRU MACRO M1200 2/ DEC -83 00; 55 PAbE 12 21 
T50 TEST C5RA AND CSRR WITH RESET 



SEQ 004a 



1981 012662 

1982 

1983 

1984 



1985 
1986 
1987 
1968 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 



012664 
012666 
012674 
012700 
012704 
012710 
012716 
012724 
012730 
012736 
012740 
012742 
012746 
012752 
012754 
012756 
012762 
012770 
012772 
012776 
013000 
013002 



104002 



000004 
012737 
004737 
013702 
013703 
112762 
112763 
010237 
012737 
000005 
011215 
042715 
023715 
001401 
100002 
010337 
012737 
011315 
023715 
001401 
104002 



0C0001 
013164 
00x352 
001356 
000001 
OOCOOl 
001122 
100200 



000007 
001124 



001122 
100000 

001124 



001160 



000001 
000001 

001124 



» it*** 
j •TEST 

• ; **** 

TST51: 



001124 



1$: 



ERROR 



51 

ft******* 

SCOPE 

MOV 

JSR 

MOV 

MOV 

MOVB 

MOVB 

MOV 

MOV 

RESET 

MOV 

BIC 

CMP 

BEQ 

ERROR* 

MOV 

MOV 

MOV 

CMP 

BEQ 

ERROR ♦ 



2 jCSRB ERROR WITH RESET 

+ + + 4 + + + + + + + + + + + + + + * + * + * + * + + *** + * + + * + + ******+*#*N*,; 

TEST CSRC AND CSRD WITH RESET 



♦ ♦ 



«1,«TIMES 
PC.CLRCSR 
DRCSC.R2 
0RCSD.R3 
0BIT0.KR2) 
♦6IT0.1CR3) 
R2, $BDADR 
0100200, *CDDAT 

(R2),(R5) 

07. (R5) 

iGDDAT,(R5) 

It 

2 

R3,iBDADR 

*100000.*GDDAT 

CR3),CR5) 

*GDDAT,(R5) 

2$ 

2 



? }D0 1 ITERATION 



jSET CSRC 
j SET CSRD 



TO OUTPUT MODE 
TO OUTPUT MODE 



2$; 



I STORE ADDRESS 

;RDY ♦ CHIP STATUS 

{INITIALIZE 

jSTORE CSRC 

{CLEAR UNDEFINED BITS 

jMAKE COMPARE 

{CSRC ERROR WITH RESET 
{CHECK CSRD 
jSTORE EXPECTED 
{READ CSRD 
{MAKE COMPARE 

} CSRD ERROR ON RESET 



CVDRCC DRV1UJ PTAG TS^ PRT1 MACRO M12O0 2/ DFC •«? 09:55 PAGF IS 
T51 TEST CSRC AND CSRU WITH RESFT 

200/ 

2008 
2009 
2010 
2011 
2012 
2013 
2014 
2C15 
0016 
2017 
2018 
2019 
2020 



SEQ 0049 



013002 
013006 
013010 
013014 
013016 
013022 
013026 
013034 
013036 



013701 
000241 
006037 
001412 
162701 
005237 
032737 
001764 
000137 



001342 
001364 

000020 
001202 
000001 

002100 



;DON' T 
NXDEV; 
NXDEV1 



001364 



S8TTL 



REPORT 
MOV 
Cl.C 
ROR 
BEQ 
SUB 
INC 
BIT 
BEG 
JMP 
END 



"tO?" ' 

DRCSA.Rl 

DMAP 

SEOP 

*20,R1 

JUNIT 

#1, DMAP 

NXDEV1 



ALL StXECTED DRVU-J'S HAVE BEEN 1ESTTD. 

INIT TO SE ri_»P NEXT DRV11J ADDRESSES 

CLEAR CARRY FOR DEVICE MAP 

LOOK FOR NEXT DRV1U 

BR IF ALL TESTED 

NEXT DRV11-J STARTS -20 
j UPDATE UNIT NUMBER 
j IS UNIT SELECTED? 
{NEXT, IF NOT SELECTED 
{TEST NEXT DRV11-J 



OF 



PASS ROUTINE 

;&**********^*:'**A*A***,***^* + ***** ********************** ***|,*4.** 

♦■INCREMENT "1 HE PASS NUMBER CiPASS) 

♦ TYPE "END PASS OXXXXX" (WHE^E XXXXX IS A DECIMAL NUMBLR ) 

♦IF THERES A MONITOR GO TO IT 











j*IF THERE ISN' 


T JUMP TO START 1 




013042 








$EOP: 








03 3042 


000240 








NOP 






01304" 


005037 


001102 






CLR 


•TSTNM 


i ;7ER0 THE TEST NUMBER 


013050 


005037 


001160 






CLR 


ITTM^S 


{{ZERO THE NUMBER OF ITERATIONS 


013054 


005237 


001176 






INC 


$PASS 


{{INCREMENT THE PASS NUMBER 


013060 


042737 


100000 


001176 




BIC 


$100000, $PASS 


{{DON'T ALLOW A NEG. NUMBER 


013066 


005327 








DEC 


(PC)* 


{{LOOP? 


013070 


000001 






JEOPCT; 


.WORD 


1 




013072 


003022 








BGT 


*DOAGN 


II YES 


013074 


012737 








MOV 


CPC)nS(PC) 


{{RESTORE COUNTER 


013076 


000001 






5ENDCT: 


,WORD 


1 




013100 


013070 








IEOPCT 






013102 


104401 


013147 






TYPE 


,$ENOhG 


{ {TYPE 'END PASS 0" 


013106 


013746 


001176 






MOV 


tPASS, -CSP) 


{{SAVE IPASS FOR TYPEOUT 


013112 


104405 








TYPDS 




{{GO TYPE- -DECIMAL ASCII WITH S 


013114 


104401 


013144 






TYPE 


, JENULl 


{{TYPE A NULL CHARACTER 


013120 


013700 


000042 




$GET42? 


MOV 


S042.-R0 


{{GET MONITOR ADDRESS 


013124 


001405 








BEQ 


JDOAGN 


{ {BRANCH IF NO MONITOR 


013126 


000005 








RESET 




} {CLEAR THE WORLD 


013130 


004710 






5ENDAD: 


JSR 


PC.(RO) 


i {GO TO MONITOR 


013132 


000240 








NOP 




{ {SAVE ROOM 


013134 


000240 








NOP 




»;FOR 


013136 


000240 








NOP 




{ {ACTU 


'U3140 








$DOAGN: 








013140 


000137 








JMP 


bl(PC)» 


j {RETURN 


013142 


002034 






IRTNADj 


.WORD 


START1 




013144 


377 


377 


000 


IENULL: 


.BYTE 


-1. 1.0 


{{NULL CHARACTER STRING 


013147 


015 


012 


105 


5ENDMG; 


.ASCIZ 


<15><12>/EN0 PASS $/ 


013152 


116 


104 


040 










013155 


120 


101 


123 










013160 


123 


040 


043 










013163 


000 















SIGN 



CVDRCC DR', 11J DIAG TST PRT1 
PROGRAM SUBROUTINES 

2022 
2023 

2024 
2025 
2026 
2027 
2026 

2029 

2050 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2036 
2039 
2040 
2041 
2042 
204 3 
2044 
2045 
2046 
204? 
2048 
204 Q 

2050 
2051 
2052 
2053 
2054 



013164 
013170 
013174 
013200 
013204 
013210 
013214 
0.13216 
013220 
013224 
013226 
013232 



013234 
013236 
013242 
013246 
013254 
013260 
013262 
013266 
013270 



012 f05 
013700 
013701 
013702 
013703 
005037 
005015 
005010 
105061 
005012 
105063 
000207 



010046 
013700 
105060 
112760 
005060 
105010 
105060 
012600 
000207 



001126 
001342 
001346 
001352 
001356 
001124 



000001 
000001 



001342 
000011 
00000.1 
000002 

000010 



MACRO M1200 27 DF.C-83 09*55 PAGE 14 



. SBTTL PROGRAM SUBROUTINES 



CLEAR ALL CONTROL/STATUS REGIS 
INIT REGISTERS R0-R4 WITH CSRA 
AND STORE iBDDAT INTO R5. 



GEO 0050 



00000 I 



CLRCSR; 


MOV 


*iBDDAT,R5 




MOV 


ORCSA.RO 




MOV 


0RCSB.R1 




MOV 


DRCSC.R2 




MOV 


DRCSD.R3 




CLR 


$GDDAT 




CLR 


(R5) 




CLR 


(RO) 




CLRB 


icri) 




CLR 


(R2) 




CLRB 


KR3) 




RTS 


PC 


: CLEAR 


IRR REGISTERS, GROUP 


CLRIRRt 


MOV 


RO.-(SP) 




MOV 


DRC5A.P0 




CLRB 


1KR0) 




MOVB 


•BIT0.1CR0) 




CLR 


2(Ro) 




CLRB 


CRO) 




CLRB 


lO(RO) 




MOV 


C SP ') ♦ , RO 




RTS 


PC 



TERS 
-C5RD 

*, + *****##***#*****************.***.# 
;BAD DATA STORAGE IN R5 
jCSRA ADDRESS TO RO 



jCSRB 

iCSRC 



ADDRESS 
ADDRESS 



jCSMD ADORES' 



TO 
TO 
TO 



I CLEAR 
•CLEAR 
jCL >R 
;Cl rt * 

;CLh 



EXPECTED 

REC'D 

CSRAjCHIP 

T GH BtTE 
" <1C»CHIP 

.GH BYTE 



Rl 

R2 
R3 



RESET 
CSRB 
RESET 
CSRD 



GROUP 1 
GROUP 2 



•START OF CSR ADDRESS 
;CSRC Tf) INPUT MODE 
; CSRA TO OUTPUT MODE 
{CLEAR DBRA 
;CHIP RESET OF GR0UP1 
{CHIP RESET Of GROUP 2 
{RESTORE REGISTER 
(EXIT 



I :m 



CVDRCC DRV11J DIAG TST PRT1 
PROGRAM SUBROUTINES 

2056 

205/ 



2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2066 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 



013272 
013274 
0132/6 
013300 
013302 
0133C4 
013306 
013310 
013312 
013314 
013316 
013320 
013322 
013324 
013326 
013330 
013332 
013334 
013336 
013340 
013342 
013344 
013346 
013350 
013352 
013354 
013356 
013360 
013362 
013364 
013366 
013370 

013372 
013374 
013376 
013400 
013402 
013404 
013406 
013410 
013412 
013414 
013416 
013420 
013422 
013424 
013426 
013430 
013432 
013434 
013436 



000000 
000001 
000003 
00000 7 
000017 
000037 
0000 77 
000177 
000377 
000777 
001777 
003777 
007777 
017777 
037777 
077777 
177777 
177776 
177774 
177770 
177760 
177740 
177700 
177600 
177400 
177000 
176000 
174000 
170000 
160000 
140000 
100000 

000000 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
10000 
020000 
040000 
100000 
177777 
177776 
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. SBTTL PATTERN^ FOR REGISTER R/W 
I PATTERNS USED FOR LOADING/READING REGISTERS 

; GROWING 1 



SEQ 0051 



6EGPAT; 





BGPATlj 


1 




3 




7 




17 




37 




7 7 




177 




377 


EDCHP1: 


777 




1777 




3777 




7777 




17777 




37777 




77777 




177777 


BGCHP2; 


177776 




177774 




177770 




177760 




177740 




177700 




177600 


EDCHP2: 


177400 




177000 




176000 




174000 




170000 




160000 




140000 




100000 




OOOOOO 


BGCHP3: 


1 




2 




4 




10 




20 




40 




100 




200 


EDCHP3: 


400 




1000 




2000 




4000 




10000 




20000 




40000 




100000 




177777 


BGCHP4: 


177776 



; GROWING 



{WALKING 1 



j WALKING 



CVDRCC DRVtlJ DIAG TS^ PRT1 
PATTERNS FOR REGISTER R/W 
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SEG 0052 



2113 


013440 


177775 


2114 


013442 


177773 


2115 


013444 


177767 


2116 


013446 


177757 


2117 


013450 


177737 


2118 


013452 


177677 


2il9 


013454 


177577 


2120 


013456 


177377 


212.1 


013460 


176777 


2122 


013462 


175777 


2123 


013464 


173777 


2124 


013466 


167777 


2125 


013470 


157777 


2126 


013472 


137777 


2127 


013474 


077777 


2128 


013476 


177777 


2129 


013500 


oocooo 


2130 






2131 






2132 


013502 


155555 


2133 


013504 


133333 


2134 


013506 


066666 


2135 


013510 


125252 


2136 


013512 


052525 


2137 


013514 


177777 


2138 


013516 


000000 


2139 


013520 


107070 


2140 


013522 


070707 


2141 


013524 


144444 


2142 


013526 


033333 


2143 


013530 


011111 


2144 


013532 


022222 


2145 


013534 


044444 


2146 


013536 


.1111 


2147 


013540 


166666 


2146 


013542 


010421 


2149 


013544 


0^1042 


2150 


013546 


031463 


2151 


013550 


042104 


2152 


013552 


063146 


2153 


013554 


073567 


2154 


013556 


104210 


2155 


013560 


114631 


2156 


013562 


135673 


157 


013564 


146314 


2158 


013566 


156735 


2159 


013570 


167356 


2160 


013572 


000000 


2161 







EDCHP4 



ENDPAT 



177773 
177767 
17775/ 
1.77737 
177677 
177577 
177377 
176777 
175777 
173777 
167777 
157777 
137777 
077777 
177777 
000000 



;DATA PATTERNS 
PATDAT: 155555 
133333 
066666 
125252 
052525 
177777 
000000 
107070 
070707 
144444 
0333S3 
011111 
022222 
044444 
111111 
166666 
010421 
021042 
031463 
042104 
063146 
073567 
104210 
114631 
135673 
146314 
156735 
167356 
ENDDATx OQQOOQ 



I i 



CVDRCC DRV11J DIAG TST PRT1 

SYSMAC ROUTINES 

2163 
21M 

2165 



013574 
013600 
013602 
013604 
013606 
013610 
013614 
013622 
013624 
013632 
013634 
013640 
013644 
013646 
013654 
013656 
013660 
013662 
013664 
015666 
013672 
013674 
013700 
013702 
013706 
013710 
013712 
013714 
013716 
013722 
013724 
013730 
013734 
013736 

013742 
013746 

013750 
013754 

013760 



105737 
100002 
000000 
000430 
0)0046 
017600 
122737 
001011 
132737 
001405 
010037 
004737 
000000 
132737 
001003 
112046 
001005 
005726 
0126O0 
062716 
000002 
122716 
001430 
122716 
001006 
005726 
104401 
001165 
105037 
000755 
004737 
123726 
001350 
013746 

105366 
002770 
004737 
10533 7 
000770 
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.SBTTl SV5MAC ROUTINES 



'jEQ 005 1 



001157 



000002 
000001 

000100 

013644 
014136 



001210 
001211 



000040 001211 



000002 
000C11 
000200 

014124 

014006 
001156 

001154 

000001 

014006 
014124 



.SBTTL TYPE ROUTINE 



♦ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE Wl fH A B<TE. 
♦THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 



1»: 



♦NOTE 1 j 

♦N0TE2. 

*N0TE3: 

♦ 

♦CALL: 

♦1) USING A 

♦ TYPE 

♦ OR 

♦ TYPE 

♦ MESAOR 

TYPE: rSTR 
BPL 
HALT 
BR 
MOV 
MOV 
CMPB 
BNE 
BITB 
BEQ 
MOV 
JSR 
.WORD 
BITB 
BNE 
MOVB 
BNE 
TST 
MOV 
ADD 
RTI 
CMPB 
BEQ 
CMPB 
BNE 
TST 
TYPE 
ICRIF 
CLR8 
BR 
JSR 
CMPB 
BNE 
MOV 

OECB 

BLT 

JSR 

DECB 

BR 



• NULL CONTAINS THE CHARACTER TO BE USED AS THE FH.iER CHARACTER 
•FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
IHLLC CONTAINS THE CHARACTER lU FILL AFTER. 



61$: 
62* : 

2$: 



601: 
3*: 

4$: 



51: 

6$: 



7*i 



TRAP INSTRUCTION 
♦MESADR 



tTPFLG 
II 

31 

RO.-(SP) 

82CSP).R0 

♦APTENV.IENV 

62$ 

#APTSP0OL,IENVM 

62 • 

R0.61I 

PC.IATY3 



*APTCSUP,«ENVM 

601 

CRO)»,-(SP) 

4$ 

(SP)» 

CSP^.RO 

•2.(SP) 

•HT.CSP) 
8$ 

*CRLF # (SP) 

5$ 

(SP)* 



•CHARCNT 

21 

PC.1TYPEC 

IFILLC.CSP)* 

21 

•NULL.-CSP) 

KSP) 
61 

PC.ITYPEQ 

•CHARCNT 

7* 



llMESADR IS FIRST ADDRESS OF AN ASCI/ STRING 



IS THERE A TERMINAL? 

BR IF YES 

HALT HERE IF NO TERMINAL 

LEAVE 

SAVE RO 

GET ADORESS OF ASCIZ STRING 

RUTTING IN APT MOOE 

NO. GO CHECK FOR APT CONSOLE 

SPOOL MESSAGE TO APT 

NO.GO CHECK FOR CONSOLE 

SETUP MESSAGE ADORESS FOR APT 

SPOOL MESSAGE TO APT 

MESSAGE ADORESS 

APT CONSOLE SUPPRESSED 

YES. SKIP TYPC OUT 

PUSH CHARACTER TO BE TYPED ONTO STACK 

BR IF IT ISN'T THE TERMINATOR 

IF TERMINATOR POP IT OFF THE STACK 

RESTORE RO 

ADJUST RETURN PC 

RETURN 

BRANCH IF <HT> 

BRANCH IF NOT <C*LF> 

POP <CR><LK> EOUIV 
TYPE A CR AND LF 

CLEAR CHARACTER COUNT 

GET NEXT CHARACTER 

GO TYPE THIS CHARACTER 

IS IT TIME FOR FILLER CHARS.? 

IF NO GO GET NEXT CHAR. 

GET 9 OF FILLER CHARS. NEEDED 

AND THE NULL CHAR. 

DOES A NU.L NEED TO BE TYPED? 

BR IF NO- -GO POP THE NULL OFT QF V/AQK 

GO TYPE A NULL 

DO NOT CQWT AS A COUNT 

LOOP 
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SE'J 0054 



ai66 



{HORIZONTAL TAB PROCESSOR 



013762 


112716 


000040 




A$: 


MOVB 


»* .CSP) 


I jRFPLACE TAB WITH SPACE 


013766 


004737 


014006 




9$! 


JSR 


PC, ITYPEC 


I | TYPE A SPACE 


013772 


132737 


000007 


014124 




BITB 


*7,$CHARCNT 


1 jBRANCH IF NOT AT 


014000 


001372 








BNE 


9$ 


l |TAB STOP 


014002 


005726 








TST 


(SP)* 


l j POP SPACE OFF- STACK 


014004 


000724 








BR 


2$ 


j jGET NEXT CHARACTER 


014006 








STYPfcC: 








014006 


105777 


165132 






TSTB 


a$iKS 


I iCHAR IN KYBD BUFFER? 


014012 


100022 








BPL 


10$ 


ii BR IF NOT 


014014 


017746 


165126 






MOV 


aiTKB, -CSP) 


M GET CHAR 


014020 


042716 


177600 






BIC 


A1 77600, (5P) 


ii STRIP EXTRANEOUS BITS 


014024 


122716 


000023 






CMPB 


*$XOFF,(SP) 


1 jWAS CHAR XOFF 


014030 


001012 








BNE 


102$ 


I iBR IF NOT 


014032 








101$; 








014032 


105777 


165106 






TSTB 


8$TKS 


1 jWAIT FOR CHAR 


014036 


10C375 








BPL 


101$ 




014040 


117716 


165102 






MOVB 


S$TKB,CSP) 


l jGET CHAR 


014044 


042716 


177600 






BIC 


0177600, (SP) 


j jSTRIP IT 


014050 


122716 


000021 






CMPB 


*$XON,(SP) 


II WAS IT XGN7 


014054 


001366 








BNE 


101$ 


1 iBR IF NO'i 


014056 








102$: 








014056 


005726 








TST 


(SP)> 


IlKIX STACK 


014060 








10$ j 








014060 


105777 


165064 






TSTB 


8$TPS 


liWAIT UNTIL PRINTER IS READY 


014064 


100375 








BPL 


10$ 




014066 


116677 


000002 


165056 




MOVB 


2(SP).8$TPB 


liLOAO CHAR TO BE. TYPED INTO DATA 


014074 


122766 


000015 


000002 




CriPB 


♦CR.2CSP) 


uIS CHARACTER A LARRIAGE RFTURN? 


014102 


O01003 








BNE 


1$ 


tl BRANCH IF NO 


014104 


105037 


014124 






CLRB 


$CHARCNT 


tl YES --CLEAR CHA^CTER COUNT 


014110 


000406 








BR 


$TYPEX 


1 lEXIT 


014112 


122766 


000012 


000002 


1$: 


CMPB 


♦LF.2CSP) 


j |IS CHARACTER A LINE FEED? 


014120 


001402 








BEQ 


$TYPEX 


» tBRANCH IF YES 


014122 


105227 








INCB 


(PC)* 


5 | COUNT THE CHARACTER 


014124 


OOOOOO 






ICHAPCNT; .WORD 





ii CHARACTER COUNT STORAGE 


014126 


000207 






$TYPEX; 


RTS 


PC 






112737 


000001 


014374 


.S8TTL 


APT COT**JNICATICMS ROUTINE 


014130 


•ATY1: 


MOVB 


«1,$FFLG 


11 TO REPORT FATAL ERROR 


014136 


112737 


0O0O01 


014372 


$ATY3: 


MOVB 


•1.IMFLG 


II TO TYPE A MESSAGE 


014144 


000403 








BR 


$ATYC 




014146 


112737 


000001 


014374 


$ATY4: 


MOVB 


•1.IFFLG 


ll TO ONLY REPORT FATAL ERROR 


014154 








$ATYCt 








014154 


010046 








MOV 


R0,-CSP> 


I iPUSH RO ON STACK 


014156 


010146 








MOV 


Rl. -CSP) 


llPUSH Rl ON STACK 


014160 


105737 


014372 






TSTB 


$MFLG 


M SHOULD TYPE A MESSAGE? 


014164 


001450 








BEQ 


5$ 


ii IF NOT: BR 


014166 


122737 


000001 


001210 




CMPB 


*APTENV,$ENV 


l lOPERATlNil UNDER APT? 


014174 


001031 








BNE 


3$ 


m IF NOT: BR 


014176 


132737 


000100 


001211 




BITB 


OAPTSPOOL, $ENVrt 


ilSHOULD SPOOL MESSAGES? 


014204 


001425 








BEQ 


3$ 


II IF NOT t BR 


014206 


017600 


000004 






MOV 


»4(SP).R0 


i iGET MESSAGE ADOR . 


014212 


062766 


000002 


000004 




ADD 


«2,4(SP) 


II BUMP RETURN ADD« . 


014220 


005737 


001170 




1$: 


TST 


$MSGTYPE 


ii SEE IF DONE W/ LAST XMISSIQN? 


014224 


001375 








BNE 


1$ 


I jIF NOT: WAIT 


014226 


010037 


001204 






MOV 


P0,$MSGAD 


I |PUT ADOR IN MAILBOX 


014232 


10^720 






2$s 


TSTB 


(R0)» 


I l FIND END OF MESSAGE 



jMJOOOl 
jMJOOOl 
iMJCOOl 
j M JOOO 1 
jMJOOOl 
I M JO 001 
iMJDOOl 
jMJOOOl 
iMJOOOl 
iMJOOOl 
iMJOOCl 
jMJOOOl 
jd. 10001 
iMJOOOl 
iMJOOOl 
l M JO 001 

iMJDOOl 
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SFQ 005! 



2167 



014234 


001376 








BNfc 


21 


014236 


163700 


001204 






sue 


iHSGAO.RO 


014242 


006200 








ASK 


HO 


014244 


010037 


001206 






MOV 


RO.IMSGIGT 


014250 


012737 


000004 


001170 




MOV 


*4,$MSGTYPE 


014256 


000415 








BR 


5$ 


014260 


017637 


000004 


014304 


3$! 


MOV 


S>4(SP),4$ 


014266 


062766 


000002 


000004 




ADD 


02.4CSP) 


014274 


013746 


177776 






MOV 


177776, -(SP) 


014300 


004737 


013574 






JSR 


PC.iTYPt 


014304 


000000 






4$; 


.WORD 





014306 








5$: 






014306 


105737 


014374 




10$ j 


TSTB 


•FFLG 


014312 


001416 








BEQ 


12* 


014314 


005737 


001210 






TST 


*ENV 


014320 


001413 








BEQ 


12$ 


014322 


005737 


001170 




11*: 


TST 


iMSGTYPE 


014326 


001375 








BNE 


11$ 


014330 


017637 


000004 


001172 




MOV 


S4(SP),$FATAL 


014336 


062766 


000002 


000004 




AOD 


•2.4CSP1 


014344 


005237 


001170 






INC 


tMSGTYPE 


014550 


105037 


014374 




12$: 


CLRB 


IFFLG 


014354 


105037 


014373 






CLRB 


♦LFLG 


014360 


105037 


014372 






CLRB 


IMFLG 


014364 


012601 








MOV 


(5P)»,R1 


014366 


012600 








MOV 


CSP)*,RO 


014370 


000207 








RTS 


PC 


014372 


000 






IMFLG: 


.BYTE 





014373 


000 






• LKLG: 


.BYTE 





014374 


000 

000200 
000001 






ifflG: 

APT5I2E 
APTENV- 


.BYTE 

.EVEN 
-200 
001 







000100 






APTSPOOL-lOO 






000040 






APTCSUP 
.SBTTL 


-040 
BINARY 


TO OCTAL (ASCI 



l j Sue START OF MESSAGE 
IjGET MESSAGE LNGTH IN WORDS 
{ jPUT LENGTH IN MAILBOX 
} j TELL APT TO TAKE MSG. 

jjPUT MSG ADDR IN JSR LINKAGE 
j jBUMP RETURN ADDRESS 
;;PUSH 177776 ON STACK 
l I CALL TYPE MACRO 



iiSMOULO REPORT FATAL ERROR? 

j {IF NOT: BR 

j j RUNNING UNOER APT? 

I j IF NOT; BR 

; {FINISHED LAST MESSAGE? 

j j IF NOT: WAIT 

i {GET ERROR 

ilBUMP RETURN ADDR. 
j»TtLL APT TO TAKE ERROR 
{{CLEAR FATAL FLAG 
{ {CLEAR LOG FLAG 

{ j Clear message flag 

iiPOP STACK INTO Rl 
i {POP STACK INTO RO 
{{RETURN 
iiMCSSG. FLAG 
» I LOG FLAG 
{{FATAL FLAG 



i 



♦THIS ROUTINE IS USEO TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 

♦OCTAL (ASCII) NUMBER ANO TYPE IT. 

♦•TYPOS-- ENTER HERE TO SETUP SUPPRESS ZEROS ANO NUMBER OF DIGITS TO TyPE 

♦CALL: 

♦ MOV NUM.-(SP) i {NUMBER TO BE TYPED 

♦ TYPOS {{CALL FOR TYPEOUT 

♦ .BYTE N jjN-1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

♦ .BYTE M j jM-1 OR 

♦ ul-TYPE LEADING ZEROS 

♦ uO-SUPPRESS LEADING ZEROS 

♦ 

♦ITYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

♦$TYPOS OR iTYPOC 
♦CALL: 

♦ MOV MUM.-(SP) jaNUMBER TO BE TYPED 

♦ TYPON ;iCALL FOR TYPEOUT 

♦ITtPOC-- -ENTER HERE FOR TYPEOUT OF A lb BIT NUMBER 
♦CALL: 
;♦ MOV NUM.-(SP) j {NUMBER TO BE TYPED 
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SEQ 0056 



2163 









i ♦ 


TyPOC 




sCALL FOR TYPCOUT 


014376 


017646 


000000 


$TYPOS: 


MOV 


SCSP),-CSP) j 


{PICKUP THE MODE 


014402 


11663 7 


000001 014621 




MOVB 


KSP), IOFILL j 


jLOAO ZERO FILL SWITCH 


014410 


112637 


014623 




MOVB 


(SP)*.$0M0DE*1 j 


{NLTOER OF DIGITS TO TYPE 


014414 


062716 


000002 




ADD 


*2,(SP) { 


; ADJUST RETURN ADDRESS 


014420 


000406 






BR 


ITYPON 




C14422 


112737 


000001 014621 


ITYPOC: 


MOVB 


•1, IOFILL j 


{SET THE ZERO FILL SWITCH 


014430 


112737 


000006 014623 




MOVB 


*6,I0M0DE»1 j 


j SET FOR 5IXC6) DIGITS 


014436 


112737 


000005 014620 


ITYPON: 


MOVB 


O5.I0CNT ; 


iSET THE ITERATION COUNT 


014444 


010346 






MOV 


R3.-CSP) } 


j SAVE R3 


014446 


010446 






MOV 


R4.-CSP) j 


{SAVE R4 


014450 


010546 






MOV 


R5.-CSP) » 


{SAVE R5 


014452 


113704 


014623 




MOVB 


I0M0DE*1,R4 j 


jGET THE NUMBER OF DIGITS TO TYP 


014456 


005404 






NEG 


R4 




014460 


062704 


000006 




ADD 


06, R4 i 


SUBTRACT IT FOR MAX, ALLOWED 


014464 


110437 


014622 




MOVB 


R4.I0MOOE i 


j SAVE IT FOR USE 


0144 70 


113704 


014621 




MOVB 


IOFILL, R4 i 


{GET THE ZERO FILL SWITCH 


014474 


016605 


000012 




MOV 


12CSP),R5 j 


{PICKUP THE INPUT NUMBER 


014500 


00/003 






CLR 


R3 { 


j CLEAR THE OUTPUT WORD 


01450.-! 


C>6105 




1$: 


ROL 


R5 j 


{ROTATE MSB INTO "C" 


014504 


OC 04 04 






BR 


31 j 


»G0 DO MSB 


Oi«506 


006105 




2$: 


ROL 


R5 j 


jFORM THIS DIGIT 


014510 


006105 






ROL 


R5 




014512 


006105 






ROL 


R5 




014,514 


010503 






MOV 


R5.R3 




014516 


006103 




3$: 


ROL 


R3 i 


jGET LSB OF THIS DIGIT 


014520 


105337 


014622 




DECB 


♦OMODE j 


j TYPE THIS DIGIT? 


014524 


100016 






BPL 


71 j 


j BR IF NO 


014526 


042703 


177770 




BIC 


♦177770, R3 j 


iGET RID Of JUNK 


014532 


0010C2 






BNE 


41 i 


{TEST FOR 


01453-4 


005704 






TST 


R4 , 


j SUPPRESS THIS 0? 


014536 


001403 






BEQ 


51 i 


i BR IF YE r - 


014540 


005204 




4$: 


INC 


R4 , 


{DON'T SUPPRESS ANYMORE O'S 


014542 


052703 


OC0060 




BIS 


*'0,R3 j 


iMAKE THIS DIGIT ASCII 


014546 


052703 


000040 


5$: 


BIS 


♦' ,R3 j 


jMAKE ASCII IF NOT ALREADY 


014552 


110337 


014616 




MOVB 


R3.8I i 


iSAVE FOR TYPING 


014556 


104401 


014616 




TYPE 


.81 ; 


jGO TYPE THIS DIGIT 


014562 


105337 


014620 


7$: 


DECB 


I0CNT , 


{COUNT BY 1 


014566 


00334/ 






BGT 


21 i 


iBR IF MORE TO DO 


014570 


002402 






BLT 


61 ; 


iBR IF DONE 


014572 


005204 






INC 


R4 » 


{INSURE LAST DIGIT ISN'T A BLANK 


014574 


OO0744 






BR 


21 i 


{GO DO THE LAST DIGIT 


014576 


012605 




6$; 


MOV 


CSP)*,R5 i 


{RESTORE R5 


014600 


012604 






MOV 


CSP"J»,R4 , 


{RESTORE R4 


014602 


012603 






MOV 


(SP)*,R3 i 


{RESTORE R3 


0146O4 


016666 


000002 000004 




MOV 


2CSP),4(SP) i 


{SET THE STACK FOR RETURNING 


014612 


012616 






MOV 


(SP)* f CSP) 




014614 


000002 






RTI 




{RETURN 


014616 


000 




81: 


.BYTE 


} 


{STORAGE FOR ASCII 0IGI1 


014617 


000 






.BYTE 


j 


{TERMINATOR FOR TYPE ROUTINE 


014620 


000 




IOCNT: 


.BYTE 


i 


{OCTAL DIGIT COUNTER 


014621 


000 




IOFILL: 


.BYTE 


i 


{ZERO FILL SWITCH 


014622 


000000 




I0MO0E: 


.WORD 


j 


{NUMBER OF DIGITS TO TYPE 








.SBTTl. 


CONVERT 


BINARY TC DECIMAL 


AND TYPE ROUTINE 



i*THl*S ROUTINE IS USED TO CHANGE A 16 BIT BINARY NUMBER TO A 5-DIGIT 
{♦SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

{♦NUMBER IS POSITIVE OR NEGATIVE 
{♦BEFORE THE FIRST DIGIT OF THE 
{♦REPLACED WITH SPACES. 
{♦CALL: 



SEQ 0057 









;* 


MOV 


NUM.-(SP) 








;♦ 


TYPDS 




014624 






$TYPDS: 






014624 


010046 






MOV 


RO.-(SP) 


014626 


010146 






MOV 


Rl.-CSP) 


014630 


010246 






MOV 


R2.-CSP) 


014632 


010346 






MOV 


R3,-(SP) 


014634 


010546 






MOV 


R5,-(SP) 


014636 


012746 


020200 




MOV 


$20200, CSP) 


014642 


016605 


000020 




MOV 


20(SP).R5 


014646 


100004 






BPL 


1* 


014650 


005405 






NEG 


R5 


014652 


112766 


000055 


000001 


MOVB 


*• -.HSP) 


014660 


005000 




1$: 


CLR 


RO 


014662 


012703 


015040 




MOV 


0$DBLK t R3 


014666 


112723 


000040 




MOVB 


♦• t (R3>» 


014672 


005002 




?$: 


CLR 


R2 


014674 


016001 


015030 




MOV 


IDTBL(R0),R1 


014700 


160105 




3$: 


SUB 


R1.R5 


014 702 


002402 






BLT 


4$ 


014704 


005202 






INC 


R2 


014706 


000774 






BR 


31 


014710 


060105 




4$; 


ADO 


R1.R5 


014712 


005702 






TST 


R2 


014714 


001002 






BNE 


51 


014716 


105716 






TSTB 


(SP) 


014720 


100407 






BMI 


71 


014722 


106316 




5%i 


ASLB 


(SP) 


014724 


103003 






BCC 


6$ 


014 726 


116663 


000001 


177777 


MOVB 


1(SP).-1CR3) 


014734 


052702 


000060 


6*t 


BIS 


*'0.R2 


014740 


052702 


000040 


7$: 


BIS 


*' ,R2 


014744 


110223 






MOVB 


R2.CR3)* 


014746 


005^20 






TST 


(RO)* 


014750 


020027 


000010 




CMP 


R0.010 


014754 


002746 






BLT 


2% 


014756 


003002 






BGT 


81 


014760 


010502 






MOV 


R5.R2 


014762 


000764 






BR 


6$ 


014764 


105726 




8*: 


TSTB 


CSP)* 


014766 


100003 






BPL 


91 


014770 


116663 


177777 


177776 


MOVB 


-1CSP),-2(R3 


014776 


105013 




9$: 


CLRB 


CR3) 


015000 


012605 






MOV 


(SP)*,R5 


015002 


012603 






MOV 


(SP)*.R3 


015OO4 


012602 






MOV 


(SP)*,R2 


015006 


012^01 






MOV 


(SP)*.R1 


015010 


012600 






MOV 


(SP)».RO 


015012 


104401 


015040 




TYPE 


, IDBLK 


015016 


016666 


000002 


000004 


MOV 


2(SP) t 4CSP) 


015024 


012616 






MOV 


(SP)n(SP) 


015026 


000002 






RTI 




015030 


0234£0 




*DTBU 


10000. 





A SPACE OR A MINUS SIGN WILl BE TrPLD 
NUMBER. LEADING ZEROS WILL ALWAYS BE 



mPUT THE BINARY NUMBER ON THE STACK 

I ;G0 TO THE ROUTINE 

{ {PUSH RO ON STACK 
PUSH Rl ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R5 ON STACK 
SET BLANK SWITCH ANO SIGN 
GET THE INPUT NUMBER 
BR IF INPUT IS POS. 
MAKE THE BINARY NUMBER POS. 
MAKE THE ASCII NUMBER NEG. 
ZEPO THE CONSTANTS INDEX 
SETUP THE OUTPUT POINTER 
SET THE FIRST CHARACTER TO A BLANK 
CLEAR THE BCD NUMBER 
GET THE CONSTANT 
FORM THIS BCD DIGIT 
BR IF DONE 
INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 
CHECK IF BCD DIGIT-0 
FALL THROUGH IF 
STILL DOING LEADING 0* S? 
BR IF YES 
MSD? 

BR IF NO 

YES- -SET THE SIGN 
MAKE THE BCD OIGIT ASCII 
MAKE IT A SPACE IF NOT ALREADY A DIGIT 
PUT THIS CHARACTER IN THE OUTPUT BUFFER 
JUST INCREMENTING 
CHECK THE TABLE INDEX 
GO DO THE NEXT DIGIT 
GO TO EXIT 
GET THE LSD 
GO CHANGE TO ASCII 
WAS THE LSD THE FIRST NON-ZERO? 
BR IF NO 

YES--SET THE SIGN FOR TYPING 
SET THE TERMINATOR 
POP STACK INTO Rb 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO Rl 
POP STACK INTO RO 
NOW TYPE THE NUMBER 
; ADJUST THE STACK 

{{RETURN TO USER 



IV. 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



seu oo5e 



169 



2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 



015032 
015034 
015036 
015040 



015050 
015050 
015052 
015054 
015060 
015062 
015070 
015074 
015100 
015106 
015114 
015122 
015124 
015130 
015134 
015134 
015142 
015144 
015152 
015156 
015157 
015160 
015162 
015166 
015170 
015172 
015174 
015202 
015204 
015210 
015214 
015216 
015222 
015222 



015224 
015232 
015236 
015240 



001750 
000144 
000012 



104407 
104407 
105237 
001775 
013777 
005237 
011637 
162737 
117737 
032777 

00:004 

004 737 
104401 

122737 
001007 
113737 
004737 
000 
000 
000777 
005777 
100002 
000000 
104407 
032777 
001402 
013716 
005737 
001402 
013716 

000002 



113737 
004737 
104407 
000207 



OO 1 103 

•001102 
001112 
001116 
000002 
164004 
020000 

015224 
001165 

000001 

001114 
014146 



163752 



001110 
001162 

001162 



001102 
015242 



164052 



001116 
001114 
164016 



001210 
015156 



001362 



1000. 

100. 

10. 
•DBLK: ,BLKW 4 
•SBTTL ERROR HANDLER ROUTINE 

•{♦♦♦♦******************************* + *. k ************************** 

i*THIS ROUTINE WILl. INCREMENT filE ERROR FLAG AND THE ERROR COUNT, 
{♦SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
{♦ANO GO TO SWRCK ON ERROR 
{♦THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE; 



{♦SW15-1 

{♦SW13-1 

{♦SWC9-1 

{♦CALL 

5* 

•ERROR: 



HALT ON 
INHIBIT 
LOOP ON 



ERP.W 

ERROR 
ERUOR 



TYPEOUTS 



ERROR N 



mERROR-EMT ANO N-ERROR ITEM NUM8ER 



7$ 



20$ 



21$ 

221 
2$; 



001000 163736 3$ 



4$ 



5i 



CKSWR 

CKSWR 

INCB 

BEQ 

MOV 

INC 

MOV 

sue 

MOVB 

BIT 

BNE 

JSR 

TYPE 

CMPB 

BNE 

MOVB 

JSR 

.BYTE 

.BYTE 

BR 

TST 

BPL 

HALT 

CKSWR 

BIT 

BEQ 

MOV 

TST 

BEQ 

MOV 

RTI 



•ERFLG 

7$ 

•TSTNM.80ISPLAY 

♦ERTTL 

(SP),$ERRPC 

*2,$ERRPC 

B)ERRPC,$ITEMB 

♦BIT13.8SWR 

20$ 

PC. SWRCK 

.ICRLE 

JAPTENV.IFNV 

2$ 

•ITEMS, 21$ 

PC,$ATY4 





22 i 

aswR 

3$ 



*eiT09 $ aswR 

4$ 

•LPERR.(SP) 

•ESCAPE 

5$ 

•ESCAPE .CSP) 



{{TEST FOR CHANGE IN SOFT-SWR 
;G0 LOOK FOR SWR CHANGE 

t {SET THE ERROR FLAG 

I jDON'T LET THE FLAG GO TO ZERO 

{{DISPLAY TEST NWBER ANO ERROR FLAG 

j ;INC THE ERROR COUNT 

{{GET ADDRESS OF ERROR INSTRUCTION 



{{STRIP ANO SAVE THE ERROR ITEM CODE 

{ {SKIP TYPEOUT IF SET 

j {SKIP TYPEOUTS 

jjGO TO USER ERROR ROUTINE 



{ {RUNNING IN APT MOOE 
{{NO. SKIP APT ERROR REPORT 
{{SET ITEM NUMBER AS ERROR NUMBER 
{{REPORT FATAL ERROR TO APT 



{ {APT ERROR LOOP 
j {HALT ON ERROR 

IF CONTINUE 

ON ERROR ! 

FOR CHANGE IN SOFT-SWR 



; j SKIP 
{ {HALT 
uTEST 
I {LOOP 
j jBR IF 
j {FUDGE 
{ {CHECK 
{ {8R IF 
j {FUDGE 



ON ERROR SUI1CH SET? 
NO 

RETURN 
FOR AN 
NUNC 
RETURN ADDRESS FOR ES 



FOR LOOPING 
ESCAPE ADDRESS 



j {RETURN 

, •♦♦♦♦♦*♦**♦*++**********+**+****+*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ *********** 

{CO TYPE ERROR 

{GO UPDATE SOFTWARE SWR IF 'CNTRL/G' 

f ;********** ***********«*********+4**+«****+****«***********4**** 

SWRCK; MOVB $TSTNM # TSTNUM ibET UP TEST 9 ON ER 

JSR PC,$ERRTYP {GO TYPE ERROR 

CKSWR {GO LOOK FOR SWR CHANGE 

RTS PC j RETURN TO ERROR HANDLER 
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bEQ 0059 



2179 



015P42 






015242 


104401 


001165 


015246 


010046 




015250 


005000 




015252 


153700 


001114 


015256 


001004 




015260 


013746 


001116 


015264 


104402 




015266 


000426 




015270 


005300 




015272 


006300 




015274 


006300 




015276 


006300 




015300 


062700 


001252 


015304 


012037 


015314 


015310 


001404 




015312 


104401 




015314 


000000 




015316 


104401 


001165 


015322 


012037 


015332 


015326 


001404 




015330 


104401 




015332 


000000 




015334 


104401 


001165 


015340 


011000 




015342 


001004 




015344 


012600 




015346 


104401 


001165 


015352 


000207 




015354 






015354 


013046 




015356 


1O4402 




015360 


005710 




015362 


001770 




015364 


10440i 


015372 


015370 


000771 




015372 


040 


040 



.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 



• *THT<; nmiTTMF UQF<; ThF "TTf-'M rnKJTOfll F\iTP" f*tTTPM«1 Tn nCTCDMTKic: 



{♦THIS ROUTINE USES THE "ITEM 



;*ERR0R IS TO 
{♦AND REPORTS 
$ERRTYP: 

TYPE 

MOV 

CLR 

BISB 

BNE 

MOV 



1$ 



21 
3$ 



4$ 

5$ 



6$ 



7* 



000 8$ 



SBTTL 



TYPOC 

BR 

DEC 

ASL 

ASL 

ASL 

AOO 

MOV 

BEQ 

TYPE 

.WORD 

TYPE 

MOV 

BEQ 

TYPE 

.WORD 

TYPE 

MOV 

BNE 

MOV 

TYPE 

RTS 



BE REPORTED. IT 
THE APPROPRIATE 

.♦CRLF 
HO, CSP) 
RO 

a<MITEMB,RO 
1$ 

$ERRPC,-(SP) 



6J 

RO 

RO 

RO 

RO 

$<ERRTB,RO 

CRO)f ,2$ 

3* 


.•CRLF 

CR0)*,4* 
51 



. *CRLF 

(RO).RO 

7$ 

(SP)».R0 

.ICRLF 

PC 

acRo)^ ,-csp) 



CONTROL BITE" (UTEMB) 
THEN OBTAINS, FROM THL 
INFORMATION CONCERNING 



TO DETERMINE 
"ERROR TABLE 
THE ERROR. 



WHICH 
1 ($ERRTB) 



MOV 

TYPOC 

TST CRO) 

BEQ 6$ 

TYPE ,81 

BR 7$ 

.ASCIZ / / 

.EVEN 

SCOPE HANDLER ROUTINE 



j {"CARRIAGE RETURN" t "LINE FEED" 

{ {SAVE RO 

{ {PICKUP THE ITEM INDEX 

»{IF ITEM NUMBER IS ZERO, JUST 

j I TYPE THE PC OF THE ERROR 

{{SAVE *ERRPC FOR TYPEOUT 

mERROR ADDRESS 

{{GO TYPE- -OCTAL ASCIICALL DIGITS) 

{{GET OUT 

{{ADJUST THE INOEX SO THAT IT WILL 

: : WORK FOR THE ERROR TABLE 



{FORM TABLE POINTER 

{PICKUP "ERROR MESSAGE" POINTER 

{SKIP TYPEOUT IF NO POINTER 

{TYPE THE "ERROR MESSAGE" 

{"ERROR MESSAGE" POINTER GOES HERE 

{"CARRIAGE RETURN" 6 "LINE FEED" 

jPICKLff> "DATA HEADER" POINTER 

,SKIP TYPEOUT IF 

{TYPE THE "DATA HEADER" 

{"DATA HEADER" POINTER GOES HERE 

{"CARRIAGE RETURN" 6 "I INE FEED" 

{PICKUP "DATA TABLE" POINTER 

{GO TYPE THE DATA 

{RESTORE RO 

{"CARRIAGE RETURN" 6 "LINE FEED" 

{RETURN 

{SAVE SCRO)» FOR TYPEOUT 

{GO TYPE- -Or [AL ASCIICALL DIGITS) 

{IS TH^RE ANOTHER NUMBER? 

}BR IF NO 

{TYPE TW0C2) SPACES 

{LOOP 

}TW0(2) SPACES 



♦ THIS ROUTINE CONTROLS THE LOOPING OF SUBTEST'.*, IT WILL INCREMENT 
♦ANO LOAD THE TEST NUMBERC ITSTNM) INTO THE DISPLAY REG, (DISPLAY*? :0> ) 
♦AND LOAD THE ERROR FLAG CIERFLG) INTO DISPLA* <15:08> 
♦THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
♦SW14-1 LOOP ON TEST 

INHIBIT ITERATIONS 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7;0> 



♦swim 

♦SW09-1 
*SW08-1 
♦ CALL 



SCOPE 



jlSCOPE-lOT 



CVORCC DRV11J Dim TST PRT1 

SCOPE. HANDLER ROUTINE 

015376 

015376 10440? 

015400 0327/; 040000 

015406 001114 
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SEQ 0060 



015410 000416 



2180 



015412 
015416 
015424 
015430 
015434 
015436 
015440 
015444 
015446 
015446 
015454 
015456 
015464 
015466 
015472 
015474 
015502 
015504 
015512 
015514 
015522 
015524 
015530 
015534 
015536 
01.5544 
015546 
015552 
015554 
015560 
015566 
015570 
015576 
015604 
015610 
015616 
015622 
015626 
015632 
015640 
015646 
015652 
015654 



013746 
012737 
005737 
012637 
000463 
022626 
012637 
000423 

032777 
001404 
127737 
001465 
105737 
001421 
123737 
101015 
032777 
001404 
013737 
000446 
105037 
005037 
000415 
032777 
001011 
005737 
001406 
005237 
023737 
002024 
012737 
013737 
105237 
113737 
011637 
011637 
005037 
112737 
013777 
013716 
000002 
000062 



000004 
0154 36 
17 7060 
000004 



000004 

000400 

163456 

001103 

001115 

001000 

001110 

001103 
001160 



001104 
001160 

000001 
015654 
001102 
001102 
001106 
001110 
001162 
000001 
001102 
001106 



163532 1$: 



000004 



163464 
001102 

001103 
163426 
001106 



001104 

001104 
001160 

001174 



001115 

163274 



$ SCOPE j 

CKSWR 

BIT *ttIT14,aSWR 

BNE IOVER 

;*****START OF CODE FOR THE XOR 

$XTSTR: BR 6$ 



5$ 



6* 



?.% 



7$ 
4$ 



004000 163374 3$ 
001176 



MOV 
MOV 
TST 
MOV 
BR 
CMP 
MOV 
BR 
;*****£ NO 
BIT 
BEQ 
CMPB 
BEQ 
TSTB 
BEQ 
CMPB 
BHI 
BIT 
BEQ 
MOV 
RR 

CLRB 
CLR 
BR 
BIT 
BNE 
TST 
BEQ 
INC 
CMP 
BGF 
MOV 
MOV 
INCB 
MOVB 
MOV 
MOV 
CLR 
MOVB 
MOV 
MOV 
RTI 
50. 
TTY 



1*: 

ISVLAD: 



IOVER: 



a*ERRVEC. -CSP) 
*5I,8*ERRVEC 
8017 7060 
CSP)*,9*ERRVEC 
ISVLAD 
(SP)*,(SP)» 
(SP)*,S«ERRVEC 
7$ 
OF CODE FOR THE XOR 

*eiToe,aswR 

2$ 

8SWR.ITSTNM 
• OVER 
IERFLG 

3i 

IERMAX, IERFLG 

3$ 

*6IT09,8SWR 

41 

ILPERR.ILPADR 

IOVER 

IERFLG 

ITIMES 

II 

oemi.sswR 
1$ 

IPASS 

II 

IICNT 

ITIMES, IICNT 

I0VER 

•1, IICNT 

IMXCNT, ITIMES 

ITSTNM 

ITSTNM,IT£STN 

(SP),ILPADR 

(SP).ILPERR 

IESCAPE 

<1, IERMAX 

IT5TNM.8DISPLAY 

«LPADR,(SP) 



IMXCNT 
.SBTTL 
t j ********** 

.ENABL LSB 



;i::ST FOR CHANGE IN SOFT-SWR 
;L00P ON PRESENT TEST? 
/YES IF SW14-1 
TESTER** 1 *** 
j IF RUNNING ON THE "XOR*' TESTER CHANGE 
:IHIS INSTRUCTION TO A "NOP" (NOP'240) 
, .iAVE THE CONTENTS OF THE ERROR VECTOR 

SET FOR TIMEOUT 

TIME OUT ON XOR? 

RESTORE THE ERROR VECTOR 

GO TO THE NEXT TEST 

CLEAR THE STACK AFTER A TIME OUT 

RESTORE THE ERROR VECTOR 

LOOP ON THE PRESENT TEST 
TESTER***** 

LOOP ON SPEC. TEST? 

BR IF NO 

ON THE RIGHT TEST? SWR<7 : 0> 

BR IF YES 

HAS AN ERROR OCCURRED? 

BR IF NO 

MAX. ERRORS FOR THIS TEST OCCURRED? 

BR IF NO 

LOOP ON ERROR? 

BR IF NO 

SET LOOP ADDRESS TO LA5T SCOPE 

ZERO THE ERROR FLAG 

CLEAR THE NUMBER OF ITERATIONS TO MAKE 
ESCAPE TO THE NEXT TEST 
INHIBIT ITERATIONS? 
BR IF YES 

IF FIRST PASS Of PROGRAM 
INHIBIT ITERATIONS 
INCREMENT ITERATION COUNT 
CHECK THE NUMBER OF ITERATlv?NS MADE 
BR IF MORE ITERATION REQUIREL 
REINITIALIZE THE ITERATION COUNTER 
SET NUMBER OF ITERATIONS TO DO 
COUNT TEST NUMBERS 
SET TEST NUMBER IN APT MAILBOX 
SAVE SCOPE LOOP ADORESS 
SAVE ERROR LOOP ADDRESS 
CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW ONE(l) ERROR ON NEXT TEST 
DISPLAY TEST NUMBER 
FUDGE RETURN ADDRESS 
FIXES PS 
MAX. NUMBER OF ITERATIONS 



INPUT ROUTINE 

************************************ *+**4*++****++*t+ 



}*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

j*ROUTINE IS ENTERED FROM THE TRAP HANOLER. ANO WILL 

j*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 



DRV11J 


Dim; tst 


PRT1 


MACRU M1200 di 


•DEC -63 


09; 55 PAGE 1 


T ROUTINE 
















; ♦WHEN 


OPERATING IN TTY FLAG 


015656 


022737 


0001/6 


001140 $CKSWR: 


CMP 


0SWREG.SWR 


015664 


001074 






BNE 


15$ 


015666 


105777 


163252 




TSTB 


5)$TKS 


015672 


100071 






BPL 


15$ 


015674 


117746 


163246 




MOVB 


BITKB. -CSP) 


015700 


042716 


177600 




BIC 


0tC177,CSP) 


015704 


022726 


000007 




CMP 


07.CSP)* 


015710 


001062 






BNE 


1.5* 


015712 


123727 


001134 


000001 


CMPB 


$AUT0B,#1 


015720 


001456 






Bfr'Q 


I5i 


015722 


104401 


016413 




TYPE 


,$CNTLG 


015726 


104401 


016420 


SGTSWRj 


TYPE 


, IMSWR 


015732 


013746 


000176 




MOV 


SUREG.-(SP) 


015736 


104402 






TYPOC 




015740 


104401 


016431 




TYPE 


,$HNEW 


015744 


005046 




19$; 


CLR 


-(SP) 


015746 


005046 






CLR 


-CSP) 


015750 


105777 


163170 


7$: 


T5TB 


S$TKS 


015754 


100375 






BPL 


7$ 


015756 


117746 


163164 




MOVB 


Q$TKB, CSP) 


015762 


042716 


177600 




BIC 


*tC177,CSP) 


015766 


021627 


000025 


9$: 


CMP 


(SP),*25 


015772 


001005 






BNE 


10$ 


015774 


104401 


016406 




TYPE 


,$CNTLU 


016000 


06,7706 


000006 


20$: 


ADD 


06, SP 


016004 


000757 






BR 


1<H 


016006 


02162? 


000015 


10$: 


CMP 


(SP),*15 


016012 


001022 






BNE 


16? 


016014 


005766 


000004 




TST 


4CSP) 


016020 


001403 






BEQ 


11$ 


016022 


016677 


000002 


163110 


MOV 


2CSP),8SWR 


016030 


062706 


000006 


11*5 


ACD 


*6,SP 


016034 


104401 


0C1165 


14 V: 


TYPE 


. tCRLE 


016040 


12372/ 


001135 


00O001 


CMPB 


IXNTAG.41 


016046 


001003 






BNE 


15$ 


016050 


012777 


00<)1 00 


163066 


MOV 


#100,a$TKS 


016056 


000002 




15$; 


RTI 




016060 


004737 


014006 


16$; 


JSR 


PC.»TYPEC 


CI 6064 


021627 


000060 




CMP 


( SF ) , «60 


i6O70 


002420 






BLT 


18$ 


01vS072 


021627 


00006V 




CMP 


(SP),«67 


0U076 


003015 






BGT 


ia$ 


016100 


042726 


000060 




BIC 


*60 . C SP ) ♦ 


016.104 


005766 


000002 




tst 


CCSP) 


016110 


001403 






dtr.'J 


17$ 


01611? 


00C516 






ASL 


CSP) 


016114 


006316 






ASL 


(SP) 


016116 


006316 






ASL 


(SP) 


016120 


005266 


000002 


17$; 


INC 


2CSP) 


016124 


056616 


177776 




BIS 


-2(SP).(SP) 


016130 


000707 






BR 


7$ 


016132 


104401 


001164 


18$ i 


TYPE 


,$QUES 


016136 


000720 




.DSABL 


BR 
LSB 


20$ 








j j *+*****+**********»«****** 








{♦THIS 


ROUTINE 


WILL INPUT A 



a 



MODE 



SEQ 0061 



IS THE SOFT-SWR SELECTED? 

BRANCH IF NO 

LHAR THERE? 

IF NO, DON'T WAIT AROUND 

SAVE THE CHAR 

STRIP-OFF THE ASCII 

IS II A CONTROL G? 

NO, RETURN TO USER 

ARE WE RUNNING IN AUTO-MODE? 

BRANCH IF YES 

ECHO THE CONTROL -G OG) 

TYPE CURRENT CONTENTS 

SAVE SWREG FOR TYPEOUT 

GO TYPE—OCTAL ASCIKALL DIGITS) 

PROMPT FOR NEW SWR 

CLEAR COUNTER 

THE NEW SWR 

CHAR THERE? 

IF NOT TRY AGAIN 

PICK UP CHAR 

MAKE IT 7-BIT ASCII 

IS IT A CONTROL-U? 

BRANCH IF NOT 

YES, ECHO CONTROL-U (*U) 

IGNORE PREVIOUS INPUT 

LET'S TRY IT AGAIN 

IS IT A <CR>? 

BRANCH IF NO 

YES, IS IT THE FIRST CHAR? 

BRANCH IF YES 

SAVE NEW SWR 

CLEAR UP STACK 



ECHO <CR> 


ANO <LF> 


RE -ENABLE 


TTY KbD INTERRUPTS? 


BRANCH IF 


NOT 


RE -ENABLE 


TTY KBD INTERRUPTS 


RETURN 




ECHO CHAR 




CHAR < 01 




BRANCH If- 


YES 


CHAR > 7? 




BRANCH IP 


YES 


STRIP -OFF 


ASCII 


IS THIS THE. F IRST CHAR 


BRANCH IF 


YES 


NO, SHIFT 


PRESENT 


CHAR OVER TO MAKf. 


ROOM FOR NEW ONE. , 


KEEP COUNT OF CHAR 


SET IN NEW CHAR 


GET THE NEXT ONE 


TYPE ?<CR 


»<LF> 


SIMULATE CONTROL -U 



****** **»****♦ A *********** ** + + *****+* 
SINGLE CHARACTER FROM THE TTY 



/ I 



CVDRCC DRVilJ [MAG TST PRT1 
TTY INPUT ROUTINE! 
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SEQ 0062 











{♦CALL: 


















5* 


RDCHR 




}} INPUT A SINGLE CHARACTER FROM THE TTr 












i* 


RETURN 


HERE 


{{CHARACTER IS ON THE S T ACI< 












; + 






llWITH PARITY BIT STRIPPED OFF 




016140 


011646 






5RDCHR; 


MOV 


(SP).CSP) 


; {PUSH DOWN THE PC 




01614,.' 


016666 


000004 


000002 




MOV 


4(SP),2CSP) 


{{SAVE THE PS 




016150 


105777 


162770 




1$: 


TSTB 


SiTKS 


; {WAIT FOR 




016154 


100375 








BPL 


1$ 


j {A CHARACTER 




016156 


117766 


162764 


000004 




MOVB 


SiTKB,4C5P) 


{ {READ THE TTY 




016164 


042766 


177600 


000004 




BIC 


OtC<l/7>.4(SP) 


{ ;GET RID OF JUNK If ANY 




016172 


026627 


000004 


000023 




CMP 


4CSP),023 


{{IS IT A CONTROL -S? 




016200 


001013 








BNE 


3$ 


; {BRANCH IF NO 




016202 


1057 77 


162736 




2$: 


TSTB 


BiTKS 


j {WAIT FOR A CHARACTER 




016206 


100375 








BPL 


2i 


t {LOOP LWTIL ITS THERE 




016210 


117746 


162732 






MOVB 


BITKB.-CSP) 


: jGET CHARACTER 




016214 


042 716 


177600 






BIC 


OtC177,(SP) 


; } MAKE IT 7-BII ASCII 




016220 


022627 


000021 






CMP 


(SP)*,421 


; {IS IT A CONTROL-Q? 




016224 


001366 








BNE 


2$ 


j {IF NOT DISCARD IT 




016226 


000750 








BR 


11 


{{YES. RESUME 




016250 


026627 


000004 


00OC21 


3$: 


CMP 


4(SP),0$XON 


{ {IS IT A RANOOM XON? 


jRANOOl 


01.6236 


001744 








BEQ 


1* 


{{BRANCH IF YES 


iRANOOl 


016240 


026627 


000004 


000140 




CMP 


4(SP).0i40 


uIS IT UPPER CASE? 




016246 


002407 








BLT 


4$ 


{ {BRANCH IF YES 




016250 


026627 


000004 


000175 




CMP 


4CSP) t 0175 


!{1S IT A SPECIAL CHAR? 




016256 


003003 








BGT 


4$ 


{ {BRANCH IF YES 




016260 


042766 


000040 


000004 




HIC 


*40,4(SP) 


j {MAKE IT UPPER CASE 




016266 


000002 






4$: 


RTI 




j {GO BACK TO USER 












gi+t+^i********************************************************** 












{♦THIS 


ROUT 1Mb" 


WILL INPUT A STRING FROM THE TTY 












{♦CALL: 


















1* 


RDLIN 




{{INPUT A STRING FROM YHf. TTY 












{♦ 


RETURN 


HERE 


{{ADDRESS OF FIRST CHARACTER WILL BE ON 


THE STA 










5* 






{{TERMINATOR WILL BE A BYTE OF ALL O'S 




016270 


010346 






tRDLIN: 


MOV 


R3, (SP) 


} {SAVE R3 




016272 


012703 


016376 




11: 


MOV 


MTTY.IN.R3 


{ {GET ADORESS 




016276 


022703 


016406 




2*: 


CMP 


0*TTYIN*8.,R3 


j {BUFF-ER FULL? 




016502 


101405 








BLOS 


4$ 


{ jBR IF YES 




016304 


104410 








RDCHR 




jjGO READ ONE CHARACTER FROM THE TT* 




016306 


112613 








MOVB 


(SP)*.(R3) 


{ {GET CHARACTER 




016310 


122713 


000177 




101: 


CMPB 


*177,(R3) 


j |IS IT A RUBOUT 




016314 


001003 








BNE 


31 


j {SKIP IF NOT 




016316 


104401 


001164 




4? : 


TYPE 


,*UUE5 


{ {TYPE A ' ?' 




016322 


000763 








BR 


1» 


{{CLEAR THE BUFFER AND LOOP 




016324 


111337 


016374 




3$: 


MOVB 


CR3),9* 


j {ECHO THE CHARACTER 




016330 


104401 


016374 






TYPE 


,9$ 






016534 


122723 


000015 






CMPB 


015, (R3)* 


j {CHECK FOR RETURN 




016340 


001356 








BNE 


21 


! {LOOP IF NOT RETURN 




016342 


105063 


177777 






CLRB 


-1CR3) 


nCLEAR RETURN ( THE 15) 




016546 


104401 


001166 






TYPE 


. *LF 


j {TYPE A LINE FEED 




016352 


012603 








MOV 


CSP)*,R3 


{ {RESTORE R3 




016354 


011646 








MOV 


CSP).-(SP) 


{{ADJUST THE STACK AND PJT ADDRESS OF THE 


016356 


016666 


000004 


000002 




MOV 


4CSP).2(SP) 


M FIRST ASCII CHARACTER ON IT 




016364 


012766 


016376 


000004 




MOV 


*ITTYIN,4(SP) 






016372 


000002 








RTI 




{ {RETURN 




016374 


000 






9$j 


.BYTE 





{{STORAGE FOR ASCII CHAR, TO TYPE 




016375 


000 








.BYTE 





1 1 TERMINATOR 
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SEQ 0065 



2181 



016376 
016406 
016411 
016413 
016416 
016420 
016423 
016426 
016431 
016434 
016437 



016442 
016450 
016456 
016460 
016462 
016464 
016466 
016470 
016472 
016476 
016502 
016510 
016512 



016514 
016522 
016526 
016532 
016536 
016540 
016544 
016546 
016550 
016552 
016554 
016556 
016560 
016566 
016574 
016576 
016600 
016602 
016604 
0!6606 
016610 
016612 
2182 016614 
016617 
016622 
016625 
016630 
016633 



136 
012 
136 
012 
015 
127 
075 
040 
105 
075 



012737 
012737 
01G046 
010146 
010246 
010546 
010446 
010546 
017746 
010637 
012737 
000000 
000/76 



012737 

013706 

005037 

0C5237 

001375 

012677 

012605 

012604 

012603 

012602 

012601 

012600 

012737 

01277,7 

104401 

016614 

012716 

002031 

000002 

OOOOOO 

000776 

OOOOOO 

015 

105 

101 

105 

106 

115 



125 
000 
107 
000 
012 
122 
040 
040 
127 
040 



016606 
000340 



162442 
016612 
016514 



016606 
016612 
016612 
016612 

162374 



016442 
000340 



012 
123 
122 
104 
122 
040 



015 

015 

123 
040 
000 
116 
040 
000 



000024 
000026 



000024 



000024 



000024 
000026 



122 
124 
124 

040 
117 
120 



JTTYIN: .BLKB fl. 

tCNTLU: .ASCIZ /*U/'15><12> 

ICNTl.G: .ASCI/ /tG/<15><12> 

$MSWR: .ASCIZ <15><12>/SWR 

$MNEW: .ASCI? / NEW - / 



.SBTTL POUER DOWN AND \JP ROUTINES 



I {RESERVE 8 BYTES FUR TTY INPUT 
I j CONTROL "U" 

5 » CONTROL "G" 



j POWER 
$PWRDN 



OOWN ROUTINE 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

HALT 

BR 



OtILLUP,a*PWRVEC i tSE 
*340,a*PWRVECt2 i>PRI0:7 
RO.-CSP) { {PUSH RO 
Rl.-(SP) {{PUSH 
R2.-CSP) {{PUSH 
R3.-CSP) {{PUSH 
R4,~CSP) {{PUSH 
R5.-CSP) jjPUSH 
3SWR.-CSP) if PUSH 
SP.ISAVR6 j jSAVE 
0$PWRUP # S*PWRVEC j {SET 



ET roR FAST UP 



Rl 

R2 

R3 

R4 

R5 

US) 

SP 

UP 

UP 



ON 
ON 
ON 
ON 
ON 
ON 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
ON STACK 



VECTOR 



{POWER 
$PWRUPt 



1*: 



.-2 uHANG 

************* +*********************+********+**+***4****** 

UP ROUTINE 



$PWRMG 

*PWRAD 

IILLUP 

ISAVR6 
PWRM5G 



MOy 

MOV 

CLR 

INC 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TYPE 

.WORD 

MOV 

.WORD 

RTI 

HALT 

BR 



.ASCIZ 



*IILLUP,6)0PWRVEC 

$SAVR6,SP 

ISAVR6 

ISAVR6 

II 

csP)*,aswR 

CSP)*.R5 

CSP)*,R4 

(SP)*,R3 

(SP)*.R2 

CSP)*.R1 

(SP)*,RO 

*$PWRDN,8*PWRVEC 

#340.S*PWRVEC*2 

PWRMSG 

(PC)*,(SP) 

START! 



} {SET FX\ FAST DOWN 

{GET SP 

{WAIT LOOP FOR THE TTY 

{WMIT FOR THc INC 

I OF WORD 

{POP STACK 

{POP 

>POP 

{POP 

{POP 

{POP 

{POP 

j {SET UP THE POWER OOWN VECTOR 

{PRI0:7 

{REPORT TH€ 

{POWER FAIL 

(RESTART AT 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 



8SWR 

R5 

R4 

R3 

R2 

Rl 

RO 



POWER FAILURE 
MESSAGE POINTER 
START1 



{RESTART ADDRESS 



THE POWER UP SEQUENCE WAS STARTED 
2 ;i BEFORE THE POW£R DOWN WAS COMPLETE 

{PUT THE SP HERE 
<15><12>/RESTARTED FROM PWR FAIL/ 



cvdrcc drviij diag tst pru 
power down and up routine . 



MS 
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SeQ 0064 



016636 
016641 
016644 



2135 
2184 



127 

106 
114 



I?.? 

101 
000 



040 
111 



016646 


010046 




016650 


016600 


000002 


016654 


005740 




016656 


111000 




016660 


006300 




016662 


016000 


016702 


016666 


0OG20O 




016670 


011646 




016672 


016666 


000004 


016700 


000002 





000002 



.EVEN 
SBTTL 



TRAP DECODER 



• j * + ********+ + ***** + *******4.*4+*** + **«+*** + *****+* + 4 ****** ******* 
:*THTS ROUTINE Wilt PICKUP THh tflUFR RYTF OF THF "TRAP" TMQTPllPTT 



;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF' THF. "TRAP" INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;+G0 TO THAT ROUTINE. 
$TRAP; MOV RO.-CSP) uSAVERO 

{ {GET TRAP ADDRESS 

{ {BACKUP BY 2 

j iGET RIGHT BYTE OF TRAP 

I {POSITION FOR INDEXING 

j j INDEX TO TABLE 

l jGO TO ROUTINE 



MOV 

MOV 

TST 

MOVB 

ASL 

MOV 

RTS 



RO, -<SP'J 

2CSP),R0 

-CRO) 

(RO).RO 

RO 

$TRPAD(RO\RO 

RO 



{{THIS IS USE TO HANDLE THE 



(SP).-CSP) 

4(SP),2(SP) 



"GETPRI" MACRO 

;MOVE THE PC DOWN 



{MOVE "HE PSW DOWN 
{RESTORE THE PSW 



$TRAP2: MOV 
MOV 
RTI 

.SBTTL TRAP TABLE 
♦THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
*BY THE "TRAP" INSTRUCTION. 
ROUTINE 





016702 


016670 






$TRPAD: 




016704 


013574 










016706 


014422 










016710 


014376 










016712 


014436 










016714 


014624 










016716 


015726 










016720 


015656 










016722 


016140 










016724 


016270 








2185 












2186 










.SBTTL 


2187 










{ {GPA T 


2138 










s {JRS T 


2189 


016726 


015 


012 


103 


TITLED; 




016731 


126 


104 


122 






016734 


103 


103 


040 






016737 


104 


122 


126 






016742 


061 


061 


112 






016745 


040 


104 


111 






016750 


101 


107 


040 






016753 


124 


105 


123 






016756 


124 


040 


120 






016761 


101 


122 


124 






016764 


040 


061 


040 






016767 


040 


015 


012 






016772 


000 








2190 


016773 


015 


012 


104 


TLCABL: 




016776 


122 


126 


061 






017001 


061 


112 


040 






017004 


103 


101 


102 





.WORD 

$TYPE 

$TYPOC 

$TYPOS 

$TYPON 

$TYPDS 

IGTSWR 

iCKSWR 

IRDCHR 

IRDLIN 



ITRAP2 
{CALL-TYPE 
t CALL*TYPOC 
iCALL-TYPOS 
jCALL-TYPON 
I CALL -TYPOS 



{CALL 

{CALL 

{{CALL 

j {CALL 



■GTSWR 
■CK?WR 
■RCCHR 
-RDLIN 



TRAPflC 104401) 
TRAP»2( 104402) 
TRAP*3( 104403) 
TRAP*4C 104404) 
TRAP*5( 104405) 
TRAP*6( 104406) 
TRAP*7( 104407) 
TRAP*10(104410) 
TRAP*11C104411) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

TYPE OCTAL NUMBER CNO LEADING ZEROS) 

TYPE OCTAL H! r itR (AS PER LAST CALL) 

TYPE DECIMAL NUMBER CUITH SIGN) 

GET SOTT-SWR SETTING 

TEST FOR CHANGE IN SOTT-SWR 

TTY TYPEIN CHARACTER ROUTINE 

TTY TYPEIN STRING ROUTINE 



ASCII MESSAGES 
TITLED: .ASCIZ < 15>< 12>/CVDRCA DRV11J DIAG TEST PART 1 /<15><1?> 
TITLED: .ASCIZ < 15>< 12>/CVDRCB DRV11J DIAG TEST PART 1 /<15><12> t;GPA 
ASCIZ <15><12>/CVDRCC DRV11J DIAG TEST PART 1 /<15><12> {{JRS 



ASCIZ <15><12>/DRV11J CABLE REQ' D/< 15><12> 



CVDRCC DRV11J DIAG TS1 PRTL 
ASCII MESSAGES 



:?191 

2192 



2193 



2194 



195 



2196 



2197 



2198 



199 



2200 



017007 
017012 
017015 
017020 

017022 
017025 
017050 
017033 
017036 
017041 
017044 
01704 7 
017052 
017055 
017060 
017063 
017066 
017071 
017074 
017076 
017101 
017104 
017107 
017111 
017U4 
017U7 
017)22 
017124 
017127 
017132 
017135 
017137 
017142 
017145 
017150 
017153 
017154 
017157 
017162 
017165 
017170 
017173 
01717^ 
017201 
017204 
017207 
017212 
017215 
017220 
017221 
017224 
017227 
01.7232 
017235 
017240 
017243 



114 

122 
04 7 
012 

122 
040 
115 
125 
105 
122 
040 
101 
127 
124 
105 
111 
040 
107 
122 
101 
040 
107 
122 
111 
040 
107 
122 
111 
040 
107 
122 
103 
120 
124 
040 
000 
105 
120 
040 
123 
125 
040 
123 
122 
105 
103 
040 
103 
000 
105 
120 
040 
123 
125 
040 
123 



105 
105 
104 
000 

105 
124 
105 
124 
122 
105 
122 
104 
122 
105 
122 
122 
122 
040 
000 
103 
122 
040 
000 
115 
122 
040 
000 
123 
122 
040 
000 
110 
040 
101 
105 

122 
103 
040 
124 
115 
102 
101 
040 
130 
124 
040 
126 

122 
103 
040 
3 24 
115 
102 
101 
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SFQ 0065 



015 



107 

111 
117 
040 
000 
107 
105 
05 7 
111 

040 

000 
122 
105 
105 



105 
105 

122 
105 
105 

122 
105 
105 

111 
123 
124 
122 

122 
040 
124 
116 
040 
125 
104 
040 
120 
040 
122 
104 

122 
040 
124 
116 
040 
125 
104 



EMI 



EM2 



ASCIZ /REG TIMEOUT ER/ 



ASCI/ 'REG READ/WRITE ER 



EM3 



EM4 



EM5; 



EM6 



EM7 



DH1 



ASCIZ /IRR REG ER/ 



ASCIZ /ACR REG ER/ 



ASCI? /IMR REG ER/ 



ASCIZ /ISR REG ER/ 



ASCIZ /CHIP STAT ER/ 



.ASCIZ /ERRPC TSTNUM BUSAUR EXPCT RCVD/ 



DH2 



.ASCIZ /ERRPC TSTNUM BUSADR ADRS 



EXPCT RCVD/ 



cvdrcc nnviu diao tst prti 

ASCII MESSAGES 
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y-G 0066 





017246 


155 


040 


040 






01/551 


101 


104 


155 






017554 


153 


040 


040 






017557 


040 


040 


105 






017565 


130 


150 


105 






017565 


154 


040 


040 






0175 70 


040 


155 


105 




tjoi 


017575 


156 


104 


ooo 




5505 

520 3 


017576 


001116 


001365 


001155 


DTI 




017304 


001154 


001156 


OOOOOO 




2204 


017315 


001116 


001365 


001155 


DT5 




017350 


001150 


001154 


001126 






017326 


000000 









.EVtN 

•FRRPC, TSTWJM, IBDADR, $GDDA T , IBDDAT.O 

1ERRPC , TSTNUM, *BDADR , tUOADR . tbUOAT , *BQL>AT ,g 



CVDRCC OJUU.l Ot'\G TM PRU MACRO M1200 
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SEQ 00*7 



220t> 

22oe 

2209 

2210 

2211 
2212 
«V1 3 
2214 

2215 

2216 
2217 
2216 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
223a 
2239 
2240 
2241 
2242 
224 3 
2244 
2245 
2246 
224 7 
2246 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2256 
2259 
2260 



SBTTL FALCON M<XT 11) UPGRADE ROUTINES 



nCiPA 



017330 
017334 
017336 
017342 
017344 
017346 



000400 
000404 
000410 
000416 
000422 
000424 
0OO426 
000432 
00O434 
000440 
000444 
000450 
0OO454 
000460 
000464 
0OO4 70 
000476 
000502 

000504 
000510 
000512 
000516 
000522 
000526 
000530 
000534 
000536 
000542 
000544 



005227 
001002 
004737 
005727 
000000 
000207 

017350 
000400 
005037 
013746 
012737 
012700 
005720 
000240 
020027 
103773 
010037 
012700 
040037 
040037 
040037 
040037 
040037 
012737 
012637 
000207 

012716 
00OO02 

012637 
012700 
013701 
010602 
012704 
014446 
020427 
101374 
010607 



17/777 
000400 



017344 

000004 

000504 000004 

160010 



174000 

017344 

0OOO40 

000006 

000016 

000022 

000032 

000036 

170OO0 000140 

000004 



000512 

000004 
000402 
000376 

000570 

000546 



THE FOLLOWING ROUTINES HAVE BEEN ADDED TO ALLOW DIAGNOSTIC S ) 
TO RUN ON A FALCON (KXT -11) BASED SYSTEM, 

TO DETERMINE WHETHER WE » Hfc A FALCON OR NOT, WE'LL SIZE THE 1ST 3/4 Of 
THE I/O PAGE C26K TO 31K). FALCON HAS 2KW LOCAL RAM AT 26KC-4) TO 50* 
ANO A MACRO-OOT AT 30K TO 31K. CONSEQUENTLY, ALL I/O DEVICES MUST 
BE PLACED BETWEEN 174000 ANO 1777 76, ADDITIONALLY, WE'LL STRAP THE 
EMT ANO TRAP SERVICE LEVEL TO PRI6, ANO SET THE HALT VECTOR SO THAT 
WE CAN STOP THE SUCKER !! 

TO MINIMIZE THE IMPACT OF THESE CHANGES ON FINAL PROGRAM SIZE, TmE 
BU.K OF THIS COOE IS PLACED IN THE FLOATING VECTOR SPACE (400-770. 
IF THE CPU AT HAND IS A FALCON (KXTU). IT STAYS THERE (NO HARM DONE), 
OTHERWISE, THE AREA 15 P£ STORED TO ITS ORIGINAL "TRAP-CATCHER" STATfc.. 



FALCON: INC 
BNE 
CALL 

1$; TST 

KXTFLAG: 

RETURN 



KXTCHKj 



II: 



2$: 
3$: 

4*: 



iSVPC- 

.- 400 

CLR 

MOV 

MOV 

MOV 

TST 

240 

CMP 

BLO 

MOV 

MOV 

BIC 

BIC 

BIC 

BIC 

BIC 

MOV 

MOV 

RETURN 

MOV 
RTI 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CMP 
BHI 
MOV 



0-1 
If 

KXTCHK 
(PC)* 



KXTFLAG 
©♦4 , - ( SP ) 
#2I.S#4 
♦16OO10.R0 
(RO)* 

RO, 0174000 
II 

RO, KXTFLAG 

♦40. RO 

R0.906 

R0.B#16 

RO, 9422 

RO.0O32 

R0.»^36 

♦1 70000. B4140 

(SP)»,S*4 



031, (SP) 

(SP)»,a*4 

♦402, RO 
SW376.R1 
SP.R2 
♦61, R4 

-(R4),-(SP) 

R4,*5i 

41 

5P.PG 



j ONCE-ONLY »»• 

EXECUTE FALCON CHECK 
TEST FALCON FLAG. . . 

...HZ ■ FALCON. ,. 

. ,,ANO RETURN TO CALLER... 



RESTORE FROM 374; *7fc AT END 

ASSUME NOT FALCON, 

SAVE ERROR VECTOR. 

SET A TRAP CATCHER. 

FALCON RAM STARTS AT 28K»4. 



SIZE TO MK. 

MUST BE FALCON, SET THE FLAG 

GET PRIl BIT. . . 
...ANO LOWER BUS-ERROR.., 
. . .BPT. . . 
.. .IOT... 

EM" 
!!!aNOTRAP SERVICE TO PRI6 

ENABLE "BREAK" HALT. 

RESTORE ERROR VECTOR.., 
, . .ANO RETURN. 

TRAP •- NOf fl FALCON.. . 
. . .CONTINUE. 

RESET ERROR VECTOR 

SET-UP TO RESTORE FLOATING.,, 
. . .VECTORS (40O 776). 

SAVE STACK POINTER IN R2 

PUSH THE RESTORE CQQE,,, 
. . .ONTO THE STACK, 

I ANO EXECUTE IT, 



GPA 

GPA 
GPA 
GPA 
GPA 
GPA 

GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 

GPA 
GPA 

GPA 
GPA 
GPA 
GPA 

GPA 
GPA 
GPA 
GPA 



!)». 
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FALCON (KXT-11) UPGRAUt ROUTINES. } jGPA 



2262 






22t>5 






2264 






2265 


000546 


010060 


2266 


000552 


010110 


2267 


000554 


022020 


2268 


000556 


020027 


2269 


000562 


101771 


2270 


000564 


010206 


2271 


000566 


000207 


2272 


000570 




2273 






2274 






22 '5 






22 76 






22/7 






2278 




O0G1O4 


2282 






228. S 




01/350 


2284 




017550 


228b, 




000001 



177776 



000 7 76 



THIS CODt- IS RFIOCATFD TO AND FXECUTED TN THE STACK AREA 

5$j MOV RO. 2(R0) j RESTORE . »2. . . 

:.. .HALT COR IOT). 



j ! OOP ' TIL DONE 

; THEN RESTORE SP. . . 

i.,,AND RETURN TO CILLER 



MOV 


RO, 2(R0) 


MOV 


Rl.(RO) 


CMP 


(RO)»,(RO)» 


CMP 


R0,*776 


BLOS 


5$ 


MOV 


R2.SP 


RETURN 





6* 



i V FALCON. THIS AREA 15 FREE TOR ANY PROGRAM UNIQUE 

l CHANGES OR DATA STRUCTURES. 

j IF USED, YOU'D BETTER PROTECT IT }•} 



*FREE- 
USTAD* 



<1000 .>/2 
.-JSVPC 



j FREE WORDS LEFT. 



j'iPA 

}f>PA 

» r iPA 

jGPA 
;GPA 

jGPA 
;GPA 
}GPA 



; :GPA 

JfGPA 
llGPA 



<jEQ 0068 



cvdrcc nrnuj Dim; tst prti 

SYMBOL TABLE 
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SEQ 0069 



ABASE ■ 


164160 


ACDU1 « 


oooooo 


ACDW2 * 


000000 


ACPUOP« 


• OOOOOO 


ACRLOC 


001400 


ADDUO - 


OOOOOO 


ADDW1 « 


OOOOOO 


AD0W10- 


■ OOOOOO 


ADDU11" 


OOOOOO 


ADDW12' 


OOOOOO 


ADDUI13" 


OOOOOO 


AD0W14« 


OOOOOO 


AD0W15' 


OOOOOO 


AD0U2 • 


OOOOOO 


ADDW3 ' 


• OOOOOO 


AD0U4 • 


■ OOOOOO 


ADDU5 > 


■ OOOOOO 


AD0W6 • 


OOOOOO 


AD0U7 • 


> OOOOOO 


ADOW© « 


• OOOOOO 


AD0W9 « 


- OOOOOO 


ADEVCT> 


• OOOOOO 


ADEVM • 


• 00OOC1 


AENV ' 


■ OOOOOO 


AENVM « 


■ OOOOOO 


AFATAL' 


■ OOOOOO 


P.MAORl- 


■ OOOOOO 


AMADR2- 


» OOOOOO 


AMADR3* 


■ OOOOOO 


AMADR4« 


» OOOOOO 


AMAMSl- 


• OOOOOO 


AMAMS2" 


■ OOOOOO 


AMAMS3' 


■ OOOOOO 


AMAMS4- 


■ OOOOOO 


AM^AD- 


■ OOOOOO 


AMSGLG' 


■ OOOOOO 


AMSGTY- 


' OOOOOO 


AMTYP1- 


- OOOOOO 


AMTYP2« 


• OOOOOO 


AMTYP3' 


• OOOOOO 


AMTYP4 


- OOOOOO 


APASS 


• OOOOOO 


APRIOR 


• OOOOOO 


APTCSU' 


■ <KXX>40 


APTENV- 


- 000001 


APTSIZ 


• 000200 


APTSPO- 


■ 000100 


ASWREG 


. OOOOOO 


ATESTN' 


■ OOOOOO 


A» WIT • 


• OOOOOO 


AUSWR ■ 


- OOOOOO 


AVECT1- 


• OOOOOO 


AVECT2' 


• OOOOOO 


BEGPAT 


013272 


BGCHP2 


013334 


BGCHP3 


013374 


BUCHP4 


013436 



BGPAT1 

BITO 

BITOO 

BIT01 

BIT02 

BIT03 

BIT04 

BIT05 

BIT06 

BIT07 

BIT08 

BIT09 

BIT1 

BIT10 

BIT11 

BIT12 

BIU3 

BIT14 

BIT15 

BIT2 

BIT3 

BIT4 

BITS 

BIT6 

BIT7 

BIT8 

BIT9 

BPTVEC 

CHPISR 

CIMR 

CIRMR 

CIRR 

CISR 

CKSUR 

CLRCSR 

CLRIRR 

CR 

CRLF ■ 

CSIMR - 

C5IRHR- 

CSIRR - 

C5ISR - 

DOISP ■ 

DH1 

DH2 

DIR 

DISPLA 

DISPRE 

DMAP 

DRCSA 

DRCS8 

DRCSC 

DRC5D 

DR06A 

DR06B 

DRDBC 

DRDBD 



013274 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
10OO00 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000014 
000140 
000040 
000020 
000100 
000160 
104407 
013164 
013234 
000015 
000200 
000050 
000030 
000110 
0001/0 
177570 
017154 
017221 
000400 
001142 
000174 
001364 
001342 
001346 
001352 
001356 
001344 
001350 
001354 
001360 



DSWR - 

DTI 

DT2 

EDCHP1 

EDCHP2 

EDCHP3 

EDCHP4 

EMTVEO 

EMI 

EM? 

EM3 

EM4 

EM5 

EM6 

EM7 

ENDOAT 

ENOPAT 

ERROR - 

ERRVEO 

TALCON 

GTSWR » 

HT 

IE 

IMRLOC 

INTFLG 

IOTVEC- 

IRRLOC 

ISRLOC 

KXTCHK 

KXTFLA 

LASTAO 

LF 

LMD04 

LM057 

MACR 

MIMR 

MIRR 

MISR 

NEXPAS 

NEXPA1 

NXOEV 

nxoevi 

PACR 

PATOAT 

PIMR 

PIRQ 

PIRQVE 

PRO 

PR1 

PR2 

PR3 

PR4 

PR5 

PR6 

PR7 

PS 

PSW 



177570 
017276 
017312 
013314 
01335? 
013414 
015456 
000030 
017022 
017041 
017063 
0170/6 
017U1 
017124 
01/137 
013572 
013500 
104000 
000004 
017330 
104406 
000011 
001000 
001372 
001366 
000020 
001376 
001374 
000400 
017344 
017350 
000012 
000200 
000240 
000254 
000244 
000250 
000240 
002100 
002104 
013002 
013006 
000300 
013502 
000260 
177772 
000240 
OOOOOO 
0OOO40 
000100 
000140 
000200 
000240 
000300 
000340 
177776 
177776 



PVMA - 


• 000340 


PWRMSG 


016614 


PURVEC- 


000024 


RDCHR ■ 


• 104410 


RDLIN • 


■ 104411 


ROY 


< 100000 


RESVEC' 


- 000010 


R6 


•*000006 


R7 


•K000007 


SCOPE « 


■ 000004 


SIMR ■ 


• 000060 


SIRR 


• 000120 


SSIMR ■ 


• 000070 


SSIRR 


• 000130 


STACK - 


■ 001100 


START 


001402 


START1 


002034 


STKLMT' 


• 177774 


SWR 


001140 


SWRCK 


015224 


SWREG 


000176 


SWO 


• OOOOOl 


SWOO • 


■ OOOOOl 


SW01 ' 


. 000002 


SW02 


■ 000004 


SW03 ■ 


• OOOO10 


SW04 • 


■ 000020 


SW05 • 


• 000040 


SW06 « 


• 000100 


SWO 7 • 


• 000200 


SW08 * 


• 000400 


SW09 ■ 


■ 001000 


SW1 


■ 000002 


SW10 • 


■ 002000 


SW11 ' 


■ 004000 


SU12 ' 


■ 010000 


SW13 « 


• 020000 


SW14 


• 040000 


SU15 - 


• 100000 


SW2 


. 000004 


SU3 


• 000010 


SW4 


• 000020 


SW5 


• 000040 


SW6 


• 000100 


SW7 


• 000200 


SW8 


- 000400 


SW9 


■ 001000 


TBITVE- 


« 000014 


TITLED 


016726 


TKVEC 


- 000060 


TLCABL 


016773 


TPVEC 


■ 000064 


TRAPVE 


• 000034 


TRTVEC 


> 000014 


TSTNUM 


001362 


TST1 


002142 


TST10 


003326 



TSUI 

TST1? 

TST13 

TST14 

TSU5 

TST16 

TST17 

TST2 

TST20 

TST21 

TS122 

TS123 

TST24 

TST25 

TST26 

TST27 

TST3 

TST30 

TST31 

TST32 

TST33 

TST34 

TST35 

TST36 

TST37 

TST4 

TST40 

TST41 

TST42 

TST43 

TST44 

TST45 

TST46 

TST47 

TST5 

TST50 

TST51 

TST6 

TST7 

TYPOS > 

TYPE < 

TYPOC ' 

TYPON > 

TYPOS 

XXDP 

$APTHD 

IATYC 

IATY1 

IATY3 

*ATY4 

IAUTOB 

IBASE 

*BDADR 

*BDDAT 

*CDU1 

SCHARC 

$CKSWR 



003422 
003516 
003612 
003706 
004056 
004224 
004524 
002220 
005012 
005312 
005600 
0057 34 
006144 
0O6350 
006554 
006672 
002412 
007010 
007102 
007202 
007330 
007456 
007556 
007660 
010012 
002522 
010144 
010270 
010444 
010652 
011172 
011500 
012030 
012336 
002620 
012546 
012664 
002766 
003160 
104405 
104401 
104402 
1C4404 
104403 
001370 
001000 
014154 
014130 
014136 
014146 
001134 
001244 
001122 
001126 
001250 
014124 
015656 
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SEQ 0070 



ICMTAG 


001100 


JESCAP 


001162 


$CM3 - 


000000 


IFTABL 


001210 


$CNTLG 


016413 


$ETENO 


001252 


5CNTLU 


016406 


♦FATAL 


001172 


iCPUOP 


001216 


♦ FFLG 


014374 


JCRIF 


0013 65 


IFILLC 


001156 


$DBLK 


015040 


♦FILLS 


001155 


•DEVCT 


001200 


♦ FREE - 


000104 


$OEVM 


001246 


♦GDADR 


001120 


*DOAGN 


013140 


♦GODAT 


001124 


$DTBL 


015030 


♦GET42 


013120 


SENOAD 


013130 


SGTSWR 


015726 


*ENOCT 


013076 


♦ HO 


000003 


$ENOMG 


013147 


♦HIBTS 


001000 


JENULL 


013144 


♦ ICNY 


001104 


*ENV 


001210 


♦ILtUP 


016606 


*ENVM 


001211 


♦INTAG 


001135 


$EOP 


013042 


•ITEMB 


001114 


tEOPCT 


013070 


$LF 


001166 


*ERFLG 


001103 


iLFLG 


014373 


iERMAX 


001115 


♦LPADR 


001106 


TERROR 


015050 


♦LPERR 


001110 


iERRPC 


001116 


$ MAORI 


001222 


*ERRTB 


001252 


♦MADR2 


001226 


*ERRTy 


015242 


♦MADR3 


001232 


$ERTTL 


001112 


♦MADR4 


001236 


. AB5. 


017350 OOO 
000000 001 




ERRORS 


DETECTED: 







♦ MAIL 


001170 


♦MAMS1 


001220 


♦MAMS2 


001224 


*MAMS3 


001230 


♦MAM$4 


001234 


1MB ADR 


001002 


JMFLG 


014372 


SMNEW 


016431 


♦MSGAD 


001204 


♦MSGLG 


001206 


♦MSGTY 


001170 


$MSWR 


016420 


IMTYP1 


001221 


1MTYP2 


001225 


♦MTYP3 


001231 


♦MTYP4 


001235 


♦MXCNT 


015654 


JNULL 


001154 


1NWTST- 


000001 


*OCNT 


014620 


I0M00E 


014622 


iOVER 


015640 


♦ PASS 


001176 


♦PASTM 


001006 


SPWRAD 


016602 



IPWRDN 
♦PWRMG 
♦PWRUP 

♦ QUES 
$RDCHR 
♦RDLIN 
*ROSZ ■ 
♦RTNAD 
♦3AVR6 
$ SCOPE 
♦SETUP- 

♦ STUP . 
♦SVLAD 

♦ SVPC ' 

♦ SWR - 
♦SWREG 
♦SWRMK- 
♦TESTN 
♦TIMES 

♦ TKB 

♦ TKS 
JTN 

♦ TPB 

il 'FUG 
MPS 



016442 
016576 
016514 
001164 
016140 
016270 
000010 
013142 
016612 
015376 
000117 
177777 
015604 
017 350 
165400 
001212 
000000 
001174 
001160 
001146 
001144 
000052 
001152 
001157 
001150 



♦ TRAP 
ITRAP2 

♦ TRP - 
$TRPAD 
JTSTM 

♦tstnm 

ITTYIN 
JTYPDS 

♦ TYPE 
ITYPEC 
iTYPEX 
♦TYPOC 
♦TYPON 
iTYPOS 

♦ UNIT 
IUNITM 

♦ USWR 
♦VECT1 
♦VECT2 
4X0FF - 
iXON - 
♦XTSTR 
♦♦GET4- 

*QF ILL 
.♦X 



016646 
016670 
000012 
016702 
001004 
001102 
016376 
014624 
013574 
014006 
014126 
014422 
014436 
014376 
001202 
001010 
001214 
001240 
001242 
000023 
000021 
015410 
OOOOOO 
014621 
001000 
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SYMBOL CROSS REFERENCE 
SYMBOL VALUE 



ABASE 

ACDW1 

ACDW2 

ACPUOP 

ACRLOC 

ADDWO 

ADDW1 

ADDWIO 

ADDUli 

ADDW12 

AODU13 

ADDU14 

ADOW15 

ADDU2 

ADDW3 

AOOU4 

AD0W5 

AOOW6 

ADDU7 

AODU8 

APDW9 

ADEVCT 

ADEVM 

AENV 

AENVM 

AFATAL 

AMADR1 

AM ADR 2 

AMADR3 

AMADR4 

AMAMS1 

AMAMS2 

AMAMS3 

AMAMS4 

AMSGAD 

AMSGLG 

AMSGTY 

AMTYP1 

AMTYP2 

AMTYP3 

AMTYP4 

APASS 

APRIOR 

APTCSU 

APTENV 

APTSIZ 

APTSPO 

ASWREG 

ATESTN 

AUNIT 

AUSWR 



* 164160 



000000 
000000 
000000 
001400 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 

OOOOOl 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 

0OO040 
OOOOOl 
000200 
000100 

oooooo 
oooooo 
oooooo 
oooooo 







CREF V01 


REFERENCES 






C8-424 


10-473 


10-473 11-521 


11-527 


1 1 - 528 


12-553 


10-473 


10-473 




10-473 






10-473 


10-473 




#11-540 






10-473 






10-473 






10-473 






10-473 






10-473 






10-47? 






10-473 






10-473 






10-473 






10-473 






10-473 






10-473 






10-473 






10-473 






10-473 






10-475 






10-473 


10-473 




48-425 


10-473 


10-473 


10-473 


10-473 




10-473 


10-473 




10-473 


10-473 




10-473 


10-473 




10-47* 


10-473 




10-473 


10-473 




10-473 


10-473 




10-473 


10-473 




10-473 


10-473 




10-473 


.10-473 




10-473 


10-473 




10-473 


10-473 




10-473 


10 473 




10 473 


10-473 




10-473 


10-473 




10-473 


10-473 




10-473 


10-473 




10-473 


10-473 




10-473 


10-473 




10-473 






17-2U5 


017-2166 




17-2165 


17-2166 


017-2166 17-2169 


12-544 


017-2166 




17-2165 


17-2166 


017-2166 


10-473 


10-473 




10-473 


10-473 




10-473 


10-473 




10-473 


10-473 





SEGi 0071 



11 -522 



11-523 



11-524 



11-525 



11-526 



CVDRC; 
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SEQ OC72 



SYMBOL 


CROSS REFERENCE 








CREF V01 


















SYMBOL 


VALUE 


REFERENCES 
























AVECT1 


a 


000000 


10-473 


10-473 






















AVECT2 


■ 


000000 


10-473 


10-473 






















BEGPAT 




013272 


12-796 

13-1349 


12-815 
13-1740 


12-835 

13-1871 


12-855 
13-1928 


13-946 
$16-2061 


13 


•1001 


15-1055 


13 


♦1107 


13 


•1324 


BGCHP2 




013334 


$16-2078 
























BGCHP3 




013374 


13-1443 


13-1543 


$16-2095 




















BGCHP4 




013436 


13-1414 


13-1514 


13-1599 


$16-2112 


















BGPATl 




013274 


13-1680 


$15-2062 






















BITO 


a 


000001 


$8-423 


12-626 


12-648 


12-659 


12-681 


12 


703 


12-722 


12 


-734 


12 


756 








12-769 


12-788 


12-801 


12-820 


12-840 


12- 


-860 


13-881 


13- 


-916 


13. 


-951 








13 955 


13-983 


13-1006 


13-1010 


.13-1035 


13- 


•1058 


13-1062 


13- 


1090 


13- 


•1112 








13-1116 


13-1141 


13-1681 


13-1741 


13-1742 


13 


-1805 


13-1806 


13 


■1872 


13 


•1873 








13-1933 


13-1934 


13-1966 


13-1967 


13-1988 


13- 


•1989 


15-2048 










BITO'J 


a 


000001 


$8-423 


8-423 






















BITO.l 


B 


000002 


$8-423 


8-423 






















BIT02 


a 


000004 


$8-423 


8-423 






















BII03 


a 


000010 


$8-423 


8-423 






















BIT04 


at 


000020 


$8 423 


8-423 






















BTT05 


J; 


000040 


$8-423 


8-423 






















BIT Ob 


" 


ooov.:o 


$8-423 


8-423 






















U.LT07 




O'.'G *r ', 


$8-423 


8-423 






















.7. 1108 


w 


:j*iC-, -■ 


$8-423 


8-423 


17-2179 




















i.'± »0** 


X. 


OO'.w J\» 


$8-423 


8-423 


17-2169 


17-2179 


















RIT1 


« 


0C0-MO2 


$8-423 


12-081 






















LlTK 




002000 


V'8-423 
























BITH 


- 


3 1/4000 


$8-423 


17-2179 






















BIT12 


B 


010000 


$8-423 
























BIT13 


K 


020000 


$8-423 


17-2169 






















BIT14 


■ 


04 0000 


$8-423 


17-2179 






















BIT15 


- 


100000 


$8-423 


8-426 






















BIT2 


a 


000004 


$8-423 
























BIT3 


S 


000010 


$8-423 
























BIT4 


* 


000020 


$8-423 
























BIT5 


» 


000040 


$8-423 
























BIT6 


a 


000100 


$8-123 
13-1072 


12-625 


12-640 


12-647 


12-661 


12 


•668 


12-688 


12 


741 


13 


-958 


BIT7 


a 


000200 


$8-423 


12-625 


12-633 


12-640 


12-647 


12 


■661 


12-668 


12 


-688 


12- 


•733 








12-741 


12-748 


12-755 


13-902 


13-930 


13 


958 


13-965 


13- 


-1065 


13 


-1072 


BIT8 


a 


000400 


$8-423 


8-427 






















BIT9 


a 


001000 


$8-423 


8-428 


12-661 




















BPTVEC 


a 


000014 


$8-423 
























CHPISR 


a 


000140 


$8-444 
























CIMR 


■ 


000040 


$8-434 


13-1376 


13-1395 


13-1447 


13-1638 
















CIRMR 


a 


000020 


$8-431 
13-1938 


13-1575 
13-1939 


13-1684 


13-1751 


13-1752 


13- 


1812 


13-1813 


13 


-1882 


13 


1883 


CIRR 


a 


000100 


$8-430 


13-1495 


13-1547 




















CISR 


w 


000160 


$8-445 
























CKSWR 


a 


104407 


17-2169 


17-2169 


17-2169 


17-2176 


17-2179 


$1/ 


-2i24 












CLRCSR 




013164 


12-656 


12-677 


12-698 


12-729 


12-764 


12 


-795 


12-814 


12 


-834 


12 


854 








13-875 


13-910 


13945 


13-1000 


13-1052 


13 


1106 


:3-1157 


13- 


-1187 


13 


-1275 








13-1319 


13-1344 


13-1369 


13-1388 


13-1408 


13 


-1437 


13-3 465 


13 


1486 


13 


1507 








13-1536 


13-1565 


13-1592 


13-1627 


13-1664 


13- 


-1673 


13-1734 


13' 


a 795 


13' 


-1857 



It 
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SYMBOL CROSS REFERENCE 
SYMBOL VALUE 



Cl.RIRR 

CR 

CRLF 

CSIMR 

CSIRMR 

CSIRR 

CSISR 

DDISP 

DH1 

DH? 

DIR 

DISPLA 

DISPRE 

DMAP 

DRCSA 



DRCSB 



DRCSC 



DRCSD 



013234 

000015 
000200 
000050 
000030 

ooo no 

000170 
177570 
017154 
017221 
000400 
001142 
000174 
001364 
001342 



001346 



001352 



0013^6 



DRDGA 


001344 


DRD8B 


001350 


DRD6C 


00135-1 


DrtDBO 


001360 


DSWR 


« 177570 


DTI 


017276 


D1Z 


01731? 


EDCHP1 


013314 


EDCHP2 


013352 


EDCHP3 


013414 


E0CHP4 


013456 


EMTVEC 


» 000030 


EMI 


017022 


EM2 


017041 


EM3 


017063 


EH4 


017076 


EM5 


017111 


EM6 


017124 


lm; 


017137 



SEQ 0073 















CREF 


V01 






















REFERENCES 


































13- 


-1865 


13- 


1927 


13 


•1963 


13- 


-1985 


015- 


■2030 


















13 


1161 


13 


1191 


15- 


1232 


13 


-1279 


13 


1469 


13 


•. '90 


13- 


•1512 


13 


1541 


13- 


•1569 


13- 


•1597 


13- 


•1633 


13 


-1669 


015- 


-2045 






















08-423 


17- 


2165 


17 


2165 


























08-423 


17- 


2165 


17- 


•2165 


























08-435 


13- 


1416 






























08-432 


13- 


1600 






























08-440 


13- 


•1516 






























08-446 


































08-425 


10 


473 


12- 


544 


























11 


-476 


11- 


•482 


11 


•468 


11 


•494 


11 


-500 


11- 


-506 


11 


•513 


017 


2199 






017 


-2200 


































08-427 


12- 


■625 


12- 


•702 


12- 


•733 


12- 


-768 


lS- 


•958 


13- 


•1013 


13- 


•1065 


13 


1119 


010 


-473 


*12- 


-544 


*12 


-544 


17 


2169 


17 


-2179 


















08-462 


12- 


544 






























on 


-534 


*12- 


•583 


*12- 


584 


12- 


587 


+ 14- 


-2013 


14- 


-2017 














ou 


-521 


♦ 12 


-586 


12 


-590 


12 


606 


12 


-619 


12- 


■657 


12- 


-678 


12- 


■731 


12 


798 


13 


-948 


13 


-1005 


13 


•1056 


13- 


■1159 


13- 


•1188 


13- 


-1233 


13 


•1276 


13- 


-1322 


13 


134 7 


13 


-1371 


13 


1390 


13 


1411 


13- 


-1440 


13 


1467 


13- 


-1488 


13 


1510 


13- 


-1539 


13- 


1567 


13 


-1595 


13- 


-1667 


13- 


-1674 


13- 


•1678 


13 


1682 


13- 


•I860 


IS- 


•1930 


13- 


-1964 


14- 


-2011 


15 


-2031 


15- 


•2046 






























Oil 


523 


12 


699 


12 


-766 


12- 


-817 


13 


950 


13- 


-1003 


IS- 


•1110 


13- 


-1160 


13- 


-1189 


13 


-1254 


13- 


•1277 


13- 


-1323 


13- 


1348 


13 


-1372 


13- 


•1391 


IS- 


-1412 


13- 


-1441 


13 


1468 


13 


-1489 


13 


-1511 


13- 


-1540 


13 


-1568 


13 


-1596 


13- 


•1668 


IS 


-1675 


13- 


-1861 


13- 


-1931 


13 


-1965 


15 


-2032 






























Oil 


•525 


12 


-620 


12 


658 


12- 


-730 


12 


•837 


13- 


949 


IS- 


1055 


13 


1111 


13 


118c* 


13 


-1226 


13- 


-1270 


13 


-1313 


13 


-1339 


13 


1364 


13- 


1383 


IS 


-1403 


13 


-1431 


13- 


•1460 


13 


-1480 


13- 


-*.502 


13 


-1531 


13 


•1*60 


13- 


-1587 


13 


-1622 


13- 


■1665 


13- 


•1679 


13- 


-1683 


13 


-1726 


13- 


•1858 


13 


-1986 


15 


•2033 






















01 1 


-527 


12 


•700 


12 


-765 


12- 


-857 


13 


-1004 


13- 


-1057 


13- 


•1109 


13 


-1183 


13- 


•1227 


13 


-1271 


13 


•1314 


13 


-1340 


13 


•1365 


13 


-1384 


13 


-1404 


13- 


1432 


13- 


-1*61 


13 


1481 


13 


■1503 


13- 


1532 


13 


-1561 


13 


-1588 


13 


-1623 


13- 


•1666 


13- 


•1729 


13- 


-1859 


13- 


•!93£ 


13 


-1987 


15 


2034 






























Oil 


-522 


12- 


-799 


13 


-980 


13 


•1040 


13 


•1079 


















Oil 


-524 


12 


818 


13 


988 


13 


1032 


13 


1130 


















oil 


-526 


12 


-838 


13 


-972 


13 


•1087 


13- 


-1146 


















on 


-528 


12- 


•593 


12 


-858 


13- 


•1024 


13 


-1095 


13 


•1138 














08-423 


10 


-473 


12 


544 


























11 


-477 


11- 


•483 


11 


-489 


11- 


•495 


11- 


•501 


11« 


-507 


11- 


•514 


017^ 


•2203 






017 


-2204 


































13 


-1719 


016 


-2070 






























016 


-2085 


































13 


-1454 


13 


1554 


016 


-2103 


























13 


-1425 


13 


1525 


13 


-1616 


016' 


■2120 






















08-' 


*23 


*12- 


•544 


*12' 


•544 


























11 


•475 


017- 


2192 






























11 


-481 


017- 


-2193 






























11 


-487 


• 17- 


•2194 






























11 


•493 


017 


2195 






























11 


-499 


017- 


-2196 






























11 


-505 


017- 


-2197 






























11 


-512 


017- 


-2198 































CVORCC 



CREATED Bt MACRO ON 27-DEC-83 AT 09:56 



>, 



PAGE 4 



SYMBOL. 


CROSS REFERENCE 














CREF 


V01 






















SlMBOl. 


VALUE 


REFERENCES 


































f.NDDAT 


013572 


12 


-810 


12 


829 


12 


849 


12 


869 


IV 


•995 


13- 


■ 104 / 


13 


•1102 


13 


1153 


13 


1335 






13 


-1360 


13- 


•1790 


13- 


•1921 


13- 


•1958 


016 


2160 


















F.NOPA1 


015500 


016 


•2129 


































ERROR 


■ 104000 


08-< 


123 


12- 


615 


12 


-631 


12 


■638 


12 


-646 


12- 


-653 


12- 


•667 


12 


•674 


12 


•68 7 






12 


-694 


12- 


•707 


12- 


•713 


12 


•720 


12- 


-726 


12 


759 


12 


•746 


12 


754 


12 


761 






12 


-773 


12 


•779 


12- 


786 


12 


792 


12- 


■808 


12- 


•827 


12 


-54 7 


12 


•867 


13- 


-888 






13 


-894 


13- 


•900 


13 


90 7 


13 


■928 


13 


-935 


13 


• 941 


13 


964 


13 


-971 


13 


-9/7 






13 


-987 


13- 


993 


13 


1017 


13 


■!.023 


13 


1029 


13 


-1039 


13 


•1045 


13 


1071 


13 


-1076 






13 


-1084 


13 


-1094 


13- 


■1100 


13- 


■1123 


13- 


-1129 


13- 


•1135 


13 


-1145 


13- 


-1151 


13 


1168 






13 


-1174 


13- 


•1179 


13- 


•1200 


13- 


-1206 


13 


1212 


13- 


1217 


13 


1223 


13 


1244 


13- 


•1250 






13 


-1255 


13 


1260 


13- 


•1267 


13 


1287 


13 


■1293 


13- 


-1299 


13- 


•1304 


13- 


•1310 


13- 


-1333 






13 


-1356 


13- 


•1380 


13- 


•1400 


13 


1423 


13- 


-1452 


13 


•1477 


13- 


1499 


13 


-1523 


13 


1552 






13 


-1579 


13- 


1584 


13- 


•1609 


13 


1614 


13- 


-1644 


13 


1650 


13 


-1656 


13- 


•1661 


13 


1694 






13 


-1702 


13- 


•1710 


13- 


-1717 


13 


1762 


13- 


•1770 


13- 


■3 776 


13 


•1782 


13 


•1788 


13 


•1821 






13 


-1827 


13- 


•1842 


13- 


-1854 


13- 


1893 


13- 


1901 


13 


■1907 


13 


1913 


13 


1919 


15- 


1947 






13 


1956 


13 


1975 


13 


1981 


13- 


199/ 


13- 


-2003 


















FRRVEC 


* 000004 


08-' 

♦ 17 


423 
-2179 


12 

♦ 17- 


544 

-2179 


♦ 12- 


■544 


♦ 12- 


•544 


♦ 12 


•605 


12- 


-616 


♦ 12- 


•616 


17- 


21/9 


♦ 17 


2179 


FALCON 


017330 


12 


-548 


018- 


-2222 






























GNS 


* ****** 


8-< 


462 


8-462 


17- 


-2184 


17- 


2184 


17 


2184 


17- 


2184 


17 


2184 


1/ 


2184 


17- 


•2184 






17 


-2184 


17 


2184 


17 


•2184 


17- 


■2184 


17 


•2184 


17- 


•2184 


17- 


•2184 


17- 


•2184 


17- 


•2184 






17 


-2184 


17- 


2184 






























GTSWR 


- 104406 


12 


-581 


017- 


2184 






























HT 


- OOOOll 


08 -< 


423 


17 


-2165 


17 


-2165 


























IE 


•■' 001 000 


08-< 


♦28 


12 


662 


13 


■1966 


























IMRLOC 


001372 


Oil 


-537 


♦ 13 


1685 


13 


1704 


♦ 13 


•1722 






















INTFLG 


001366 


Oil 


-535 


































IOTVEC 


- 000020 


08-< 


423 


♦ 12 


-544 


♦ 12 


544 


























IRRLOC 


001376 


Oil 


-539 


♦ 13 


-1686 


13 


-1689 


♦ 13 


■1721 






















ISRLOC 


0013 74 


Oil 


-538 


































KXTCHK 


000400 


18 


-2224 


018 


2231 






























KXTFLA 


0.17344 


13 


-1837 


.13 


-1849 


013 


2226 


♦ 18- 


•2231 


♦ 18- 


■2239 


















LASTAD 


- 017350 


019 


-2284 


































IV 


* 000012 


08 - 


423 


17 


-2165 


17 


-2165 


























LM004 


» 000200 


08-- 


448 


































L.MD57 


- 000240 


08-- 


449 


































MACR 


- 000254 


08-' 


455 


13 


1175 


13 


-1194 


13 


1219 


13 


-1245 


13 


-1300 


13 


-1326 


13 


-1639 






MIMP 


- 000244 


08- 


453 


13 


■1164 


13 


-1201 


13 


•1238 


13 


•1262 


13 


-1288 


13 


1351 


13 


1375 


13 


1394 






13 


-1415 


13- 


1444 


13 


-1580 


13 


-1610 


13 


-1645 


13- 


-1713 














MiRR 


- 000250 


08 - 


454 


13 


1170 


13 


-1213 


13 


-1256 


13 


-1282 


13- 


-1306 


13 


-1472 


13 


1493 


13 


1515 






13 


-1544 


13 


•1572 


13 


•1602 


13 


165/ 


13 


1698 


13 


-1747 


13 


-1748 


13- 


•1832 


13 


■1845 






13 


-18/8 


13 


1879 


13 


-1942 


13 


1949 






















MSR 


* 000240 


08- 


*:>2 


13- 


-1207 


13 


-1251 


13- 


■1294 


13 


-1651 


















NEXPAS 


002100 


12 


-588 


012 


•590 


14 


2019 


























NLXPA1 


002104 


012 


591 


12 


-594 






























Nxntv 


013002 


014 


-2011 


































NXDEVl 


013006 


12 


-589 


014 


•2012 


14 


-2010 


























PACR 


» 000300 


08- 


458 


13 


1195 


33 


1327 


13 


-1635 






















PATDAT 


013502 


016 


-2132 


































P1MR 


* 000260 


08- 


459 


33- 


•1239 


13 


-1352 


























PIRQ 


- 177772 


48 ■- 


423 


































PIRQVE 


- 000240 


08- 


423 
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SYMBOL CROSS REFERENCE 
SYMBOL VALUE 



PRO 


= 


oooooo 


PR1 


* 


000040 


PR? 


x 


000100 


PR? 


* 


000140 


PR4 


» 


000200 


PRS 


R 


000240 


PR6 


it 


000300 


pr: 


* 


000340 


PS 


X 


177776 


PSW 


= 


177/76 


PVMA 


a 


000340 


PWRMSG 




016614 


PURVEC 


a 


000024 


ROCHR 


X 


104410 


RDLIN 


> 


104411 


ROY 


* 


100000 


RESVEC 


i: 


000010 


R6 


■ < 


*00;X>06 


R7 


K< 


*000007 


SCOPE 


X 


000004 



SIMR 


a 


000060 


SIRR 


* 


000120 


SSIMR 


X 


000070 


SSIRR 


* 


000130 


STACK 


■ 


001100 


STAPT 




001402 


START1 




002034 


STKLMT 


* 


177774 


SWR 




001140 


SWRCK 




015224 


5WREG 




000176 


SWO 


K 


OOOOOl 


SWOO 


■ 


00OOO1 


SW01 


K 


000002 


SU02 


■ 


00OOO4 


SW03 


■ 


000010 


SW04 


■a 


000020 


SU05 


m 


000040 


SU06 


a 


000 100 


SW07 


■ 


000200 


SW08 


* 


000400 


SW09 


a 


C01OO0 


SU1 


x; 


000002 


SW10 


u 


002000 


sun 


* 


C04000 


SW12 


a 


010000 



CREF V01 



c ,F.u 00 7fi 



REFERENCES 


































£6-423 


































08-423 


































#8-423 


































08-423 


































$8-423 


































08-423 


































08-423 


































08-423 


12 


598 






























08-423 


8-423 






























08-423 


































08-460 


































17-2181 


017 


-2182 






























08-123 


*12 


-544 


+ 12- 


•544 


*17- 


•2181 


♦ 17- 


-2181 


+ 17- 


•2181 


♦ 17- 


•2181 


♦ 17 


•2181 


♦ 17 


•2181 


17-2180 


017 


-2184 






























017-2184 


































08-426 


12 


-625 


12 


-640 


12 


-688 


12- 


-702 


12 


•715 


12- 


733 


12- 


•748 


12 


768 


12-781 


1.) 


958 


13 


1013 


13 


-1065 


13 


-1119 


















08-423 


































08-423 


♦ 12 


544 


♦12- 


-544 


12 


-544 






















08-423 


































08-423 


12 


-602 


12- 


■618 


12- 


-655 


12 


6?6 


12 


-697 


12 


•728 


12 


•763 


12 


-794 


12-813 


12 


-833 


12 


853 


13 


874 


13 


909 


13 


944 


13 


999 


13 


-1051 


13 


■1105 


13-1156 


13 


-1186 


13 


1230 


13 


1274 


13- 


-1318 


13 


1343 


13- 


1368 


13 


-1387 


13 


140' 


13*1436 


13 


-1464 


13- 


-1485 


13- 


-1506 


13- 


1535 


13 


-1564 


13 


1591 


13- 


-1626 


13- 


1672 


13-1733 


13 


-1794 


13 


-1864 


13 


1926 


13- 


1962 


13 


1934 














08-4 S6 


13 


-1396 


13 


1418 


13 


-1574 


13- 


1604 


















08-441 


13 


-147^ 


13 


-1494 


13 


-1518 


13- 


-1573 


13 


-1603 


13 


•163? 










08-43? 


13 


-1445 


13- 


1685 


























08-442 


13 


-1545 


13- 


-1686 


























08 423 


12 


-595 






























8-462 


012 


-544 






























12-580 


012 


-582 


14 


-2020 


17 


-2181 






















08-423 


































010-473 


12 


-544 


♦ 12- 


•544 


12 


-544 


♦ 12- 


544 


♦ 12- 


544 


17- 


2169 


17- 


2169 


17- 


2169 


17 2179 


17 


-2179 


17 


-2179 


17 


•2179 


17- 


-2179 


17- 


-2160 


17« 


•2180 


17- 


-2181 


17- 


•2181 


17 2169 


017 


-2174 






























08-462 


12 


-544 


17- 


•2180 


17- 


•21Q0 






















08-423 


































08 423 


8-' 


423 






























08-423 


a-< 


423 






























08-423 


e-< 


423 






























08-423 


8-< 


423 






























08-423 


8 - 


423 






























08-423 


8- 


423 






























08-423 


8-< 


423 






























08-423 


8-< 


123 






























08 423 


8-' 


C23 






























08-423 


a- 


423 






























08-423 


































08 423 


































08-423 


































08-423 



































CVDRCC 



CREATED Ht MACRO ON ^7l)EC-83 A» 0«):5* 



paq- 6 



SYMBOL CROSS REFERENCE 
SYMBOL VALUE 



CRFif- 



VOl 



St (J OC76 



SW13 


- 020000 


SW14 


* 040000 


SW1S 


= 100000 


sw? 


■ 000004 


SWA 


• 000010 


SUM 


* C00020 


sws 


* 000040 


SUI6 


* 000100 


SW? 


- 000200 


SW8 


- 000400 


SU9 


* 001000 


TBITVE 


= 000014 


TITLED 


01C726 


TKVEC 


• 000060 


TLCABL 


016773 


TPVEC 


» 000064 


TRAPVE 


» 000034 


TRTVEC 


* 000014 


TSTNUM 


001362 


TST1 


002142 


TST10 


003326 


TSUI 


003422 


TST12 


003516 


TSU3 


003612 


1ST14 


003/06 


TST15 


004056 


TSU6 


004224 


TST17 


004524 


TST2 


002220 


TST20 


005012 


"IST21 


005312 


TST22 


005600 


TST23 


005734 


TST24 


006144 


TST25 


006350 


TST26 


006554 


T5T27 


006672 


TST3 


002412 


TST30 


007010 


TST31 


007102 


TST32 


007202 


TST33 


007330 


TST34 


007456 


TST35 


007556 


TST36 


OO7660 


TST37 


010012 


TST4 


002522 


TST40 


010144 


TST41 


010270 


TST42 


010444 


TS143 


010652 


1ST44 


011172 



REFERENCES 

08-423 

£8-423 

£8-423 

£8-423 

£8 423 

£8 423 

£8-423 

£8-423 

£8-423 

£8-423 

£8-423 

£8 423 
12-575 

£8-423 
12-576 

£8-423 

£8-423 

£8-423 

£11-533 

£12-602 
12-791 

£12-813 

£12-833 

£12-853 

£13-874 
13-906 
13-940 

£13-999 

£12-618 

£13-1051 

£13-1105 

£13-1156 
13-1181 
13-1225 
13-1269 
13-1312 
13-1338 
12-652 
13-1363 
13-1382 
13-1402 
13-1430 
13-1459 
13-1479 
13-1501 
13-1530 
12-673 
13-1559 
13-1586 
13-1621 
13- 1663 
13-1727 



£17-2109 

£17-2190 

*12-544 

♦17-2174 

£12-794 



£13-909 
£13-944 



£13 1186 

£13-1230 

£13-1274 

£13-1318 

£13-1343 

£12-655 

£13-1368 

£13-1387 

£13-1407 

£13-1436 

£13-1464 

£13-1485 

£13-1506 

£13-1535 

£12-676 

£13-1564 

£13-1591 

£13-1626 

£13-1672 

£13-1733 



♦12-544 
17-2203 



17-2204 



At 



.J 



CVDRCC 



CRtATf.Q BY MACRO ON 27 -DEC 83 AT 09-56 



SYMBOL CROSS REFERENCE 
SYMBOL VALUE 



TST45 


011500 


TST46 


012030 


TST47 


012336 


tsts 


002620 


TSTbO 


012546 


TST51 


012664 


TST6 


002766 


TST> 


003160 


TYPDS 


= 104*05 


TYPE 


■ 104401 


YyPOC 


= 104402 


TYPON 


- 104404 


TYPOS 


* 104403 


XXDP 


001370 


$APTHO 


001000 


JASTAT 


* *44*«* 


$ATYC 


014154 


$ATY1 


014130 


*ATY3 


014136 


*ATY4 


014146 


$AUTOB 


001134 


jbase 


001244 


JBUADR 


001122 



iBDDAT 


001126 


*CDU1 


001250 


iCHARC 


014124 


JCKSWR 


015656 


ICMTAG 


001100 


*CM3 


« OOOOOO 


ICNTLli 


016413 


*CNTLU 


016406 


$CPUOP 


001216 


JCRLF 


001165 


*DBLK 


015040 


IDEVCT 


001200 


$DEVM 


001246 


IDOAGN 


013140 


iDTBL 


015030 


$ENDAD 


013130 


$ENDCT 


013076 



REFERENCES 

£13-1794 
13-1856 

013-1926 
12-693 

013-1962 
13-1980 
12-725 
12-760 
14-2020 
12-575 
17-2178 
17-2180 
17-2178 

017-2184 

017-2184 

011-536 
9-472 
17-2166 
17-2166 

017-2166 
17-2165 

017-2166 

010-473 

010-473 

010-473 

♦12-714 

♦12-839 

♦13-936 

♦13-1032 

♦13-1130 

+13-1373 

♦13-1598 

♦13-1322 

♦13-1990 

010-473 

010-473 

♦17-2165 

017-2180 

010-473 

010-473 
17-2180 
17-2180 

010-473 

010-473 
17-2178 
17-2168 

010-473 

010-473 
14-2020 
17-2168 
9-46 7 

014-2020 



013-1864 

012-697 

013-1984 
012-728 
012-763 
017-2184 
12-576 
17-2178 
17-2100 
17-2178 



♦12-562 
09-472 

17-2166 
017-P166 



017 
17 

♦ 12 
12 

♦ 12 

♦ 12 

♦ 12 

♦ 13 

♦ 13 

♦ 13 

♦ 13 

♦ 13 

♦ 13 

♦ 13 
12 

♦ 17 
17 
12 
10 

01/ 
017 

17 

17 
17 

♦ 12 
12 
14 

017 

014 



2166 

2169 

566 

553 

608 

732 

859 

952 

1040 

1138 

1392 

1634 

1831 

1998 

596 

2165 

2164 

544 

473 

2180 

2180 

2165 

2178 

2168 

597 

583 

■2020 

2168 

20 3 



14-2020 
17-24.78 
17-216^ 
17-2180 



12-57^ 



12-571 
♦12-555 
♦12-623 
♦12-740 
♦13-882 
♦13-966 
♦13-1059 
♦13-1146 
♦13-1413 
♦13-1687 
♦13-1844 
17-2203 
15-2030 

17-2165 

17-2184 
12-544 



17-2165 

17-2180 
017-2168 



014-2020 
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CREF V01 



14-2020 

17 2178 

17-2160 

017-2184 



12 
12 

♦ 12 

♦ 12 

♦ 13 

♦ 13 

♦ 13 

♦ 13 

♦ 13 

♦ 13 

♦ 13 
17 
17 



579 
585 

•632 
747 
889 
972 
1073 

•1162 
1442 
1696 
1888 
2204 
2203 



♦17-2165 
12-544 



17-2165 
17-2180 



17-2165 
17-2178 
17-2180 



17-2180 

♦12-639 

*12-767 
♦13-895 
♦13-980 

♦13-1079 
♦13-1192 
♦13-1470 
♦13-1703 
+13-1894 

17-2204 

017 2165 

12-544 



17-2169 
17-2180 



17-2167 
17-2178 
17-2180 



17-2180 

♦12-660 

+12-774 
•113-901 

►13-988 

♦13-1087 

♦13-1236 

♦13-1491 

♦ 13-17U 

♦13-1941 



12-544 



17-2169 



17 
17 
17 



2168 
2180 
2181 



17-2180 

♦12-679 
♦1? 780 

♦13-917 

♦13-1007 

♦13-1095 

♦13-1280 

♦13 '513 

♦13-1757 

♦13-1948 



12-544 



17-2169 



SEU O0 7 7 



17-2169 

17-2180 

017-2184 



17-2178 
17-2160 



♦ 12 

♦ 12 

♦ 13 
+ 13 
+ 13 
+ 13 

♦ 13 

♦ 13 

♦ 13 



701 

800 

923 

1019 

1113 

1325 

1542 

1763 

1968 



♦ 12 

♦ 12 

♦ 13 

♦ 13 

♦ 13 

♦ 13 
+ 13 

♦ 13 

♦ 13 



-708 
-819 
-929 
-1024 
1125 
-1.350 
-15/0 
-1816 
-1977 



17-2178 



17-2178 



CVDRCC 



CRFATFO St MACRO UN 27-DEC-83 AT 09;56 
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SYMBOL CROSS REFERENCE 



CREF VOl 



SEQ OC7» 



SYMBOL 


VALUE 


REFERENCES 


































SENDMG 


01314/ 


14 


•2020 


#14 


2020 






























5ENUL L. 


013144 


14- 


2020 


#14 


-2020 






























$F.NV 


001210 


#io- 


473 


12- 


-564 


17- 


2165 


17- 


2166 


17- 


2166 


17 


2169 














$ENVM 


001211 


#10- 


-473 


12- 


544 


17 


2165 


17- 


•2165 


17 


2166 


















4EOP 


013042 


14- 


•2014 


#14- 


•2020 






























SEOPCT 


013070 


#14- 


2020 


14- 


-2020 






























SFRKLG 


001103 


#10- 

17- 


•473 
2179 


♦ 17- 


•2169 


17- 


2169 


17- 


•2169 


17 


•2179 


17- 


2179 


17- 


•2179 


♦ 17 


2179 


17- 


2179 


*ERMAX 


001115 


#10 


•473 


+ 12- 


-544 


17- 


•2179 


+ 17* 


•2179 


17- 


•2179 


17 


2179 














TERROR 


015050 


12 


544 


#17- 


-2169 






























SERRPC 


001116 


#10- 


-473 


♦ 17 


2169 


♦ 17- 


2169 


17 


•2169 


17- 


2169 


17- 


•2169 


17- 


•2178 


17- 


■2203 


17- 


2204 


JERRTB 


001252 


#11- 


• 473 


17- 


-2178 






























iF.RRTY 


01524? 


17- 


-2175 


#17- 


-2178 






























♦ERTTL 


001112 


#10- 


473 


♦ 1.7- 


-2169 


17- 


2169 


17- 


2169 






















JESCAP 


001162 


#10- 


•473 


+ 12- 


-544 


17« 


•2169 


17- 


2169 


17- 


•2169 


17- 


•2169 


♦ 17- 


2179 










*ETABL 


001210 


#10 


-473 


































$ETEND 


001252 


9-472 


#10 


-473 






























5FATAL 


001172 


#10- 


-473 


♦ 12- 


-545 


+ 17- 


2166 


























WLG 


014374 


+ 17- 


•2166 


+ 17- 


-2166 


17- 


2166 


+ 17- 


2166 


#17- 


2166 


















• FILLC 


001156 


#10 


■ 473 


17 


2165 


17- 


2165 


17 


-2165 






















< FILLS 


001155 


#10- 


•473 


17 


2165 


17- 


•2165 


























*FRFE 


* 000104 


#19. 


•2278 


19 


-2279 






























tGDAUR 


001120 


#10- 


-473 


17 


2204 






























SGDDAT 


001124 


#10 


-473 


♦ 12 


-603 


+ 12- 


•625 


12 


629 


+ 12- 


-633 


12- 


•636 


+ 12- 


•640 


12- 


644 


+ 12 


-647 






12- 


•651 


+ 12 


-661 


12- 


■665 


+ 12- 


-668 


12 


672 


+ 12- 


680 


12 


•685 


+ 12 


688 


12 


-692 






♦ 12- 


-702 


12- 


-705 


♦ 12 


709 


12 


-711 


+ 12- 


-715 


12 


-718 


♦ 12- 


721 


12 


724 


♦ 12 


-733 






12 


-737 


+ 12 


•741 


12- 


-744 


+ 12 


-748 


12- 


•752 


*12- 


-755 


12- 


•759 


+ 12- 


■768 


12- 


771 






♦ 12- 


•775 


12 


-777 


♦ 12- 


781 


12 


-784 


+ 12 


-787 


12 


-790 


+ 12 


-802 


12 


806 


♦ 12 


-821 






12 


825 


+ 12 


-841 


12- 


-845 


+ 12- 


-861 


12- 


■865 


♦ 13- 


-883 


13- 


-886 


+ 13 


■890 


13 


(392 






+ 13- 


-896 


13 


-898 


+ 13 


■902 


13- 


-905 


+ 13 


918 


13- 


-921 


+ 13- 


•924 


13 


926 


+ 13- 


930 






13 


-933 


+ 13 


-937 


13 


939 


♦ 13 


-958 


13 


962 


♦ 13- 


965 


13- 


-969 


♦ 13- 


•973 


13 


975 






♦ 13 


-978 


13 


-981 


13- 


-985 


♦ 13- 


-989 


13 


901 


♦ 13- 


-1013 


13- 


■1015 


+ 13 


1018 


13- 


-1021 






♦ 13- 


-1025 


13. 


-1027 


♦ 13- 


-1030 


13- 


-1033 


13- 


-1037 


+ 13 


-1041 


13- 


•1043 


♦ 13 


•1065 


13 


1069 






+ 13 


-1072 


13 


-1076 


♦ 13 


1080 


13- 


-1082 


+ 13 


1085 


13- 


1088 


13- 


-1092 


+ 13 


1096 


13 


1098 






+ 13 


-1119 


13 


-1121 


♦ 13- 


-1124 


13 


-1127 


-13- 


•1131 


13- 


-1133 


• IS- 


-1136 


13 


-1139 


13 


•1143 






+ 13- 


-1147 


13 


-1149 


♦13- 


-1163 


13. 


-1166 


+ 13- 


1169 


\3 


-1172 


IS 


-1177 


♦ 13 


1193 


13- 


1196 






13 


1198 


♦ 13- 


1202 


13- 


-1204 


+ 13 


-1P08 


13 


1210 


x3- 


-1215 


13- 


-1221 


*13 


•1237 


13- 


-1240 






13 


•1242 


+ 13- 


-1246 


13- 


•1248 


13- 


-1253 


13- 


•1258 


+ 13- 


•1263 


13- 


-1265 


+ 13 


1281 


13 


1285 






♦ IS- 


-1289 


13- 


•1291 


♦ 13- 


•1295 


13 


-1297 


13- 


.302 


13 


1-T08 


♦ 13- 


-1320 


IS 


-1331 


+ 13 


-1353 






IS 


-1356 


+ 13. 


-1374 


13 


■1378 


+ 13- 


-1393 


13- 


-13 C C 


+ 13- 


•1417 


13- 


-i4'-:i 


♦ 13 


•1446 


13 


-1450 






+ 13 


-1471 


13- 


-1475 


♦ 13- 


•1492 


13 


-1497 


+ 13- 


-15.7 


13- 


•1521 


*lo- 


-1546 


13 


-1550 


+ 13- 


-1571 






13 


-1577 


13 


-1582 


♦ 13- 


-1601 


13 


-1607 


13 


1612 


+ 13- 


-1640 


13 


-1642 


+ 13- 


-1646 


13- 


-1648 






+ 13 


-1652 


13 


-1654 


13- 


•1659 


♦ 13- 


-1688 


13- 


-1692 


♦ 13- 


-1695 


+ 13- 


-1697 


.'.3 


•1700 


♦ 13- 


•1705 






13 


-1708 


+ 13 


-1712 


13- 


-1715 


♦ 13 


•1758 


13 


1760 


+ 13- 


1764 


♦ 13 


-1765 


+ 13 


1766 


1? 


-1768 






+ 13 


-1772 


13 


-1774 


<13- 


-1778 


13 


•1780 


♦ 13 


-1784 


IV 


-1786 


♦ 13- 


-1815 


13 


-1819 


1 3 


1825 






• 13 


-1833 


13 


-1835 


+ 13 


-1839 


13 


1840 


+ 13- 


-1843 


13 


-184 7 


♦ 13 


•18.51 


13- 


1852 


♦ 13 


-188S 






13 


-1891 


*13 


-1895 


♦ 13- 


-1896 


♦ 13 


-189- 7 


13 


18^9 


♦ 13 


-1903 


13 


- 1905 


♦ 13 


-19'>9 


13 


1911 






+ 13 


-1915 


13 


-1917 


+ 13. 


-1943 


13 


-1945 


♦ 13 


1950 


*13- 


•1951 


♦ 13- 


-1952 


13 


1954 


+ 13- 


1969 






13 


-1973 


+ 13 


-1976 


13 


-1979 


+ 13 


•1991 


13- 


-1995 


+ 13- 


-1999 


13- 


-2001 


♦ lb- 


2035 


17- 


2203 






17 


-2204 


































*GET42 


013120 


#14 


-2020 


































*GTSWR 


015726 


#1/ 


-2180 


17 


-2184 


17- 


■2184 



























n / 



CVDRCC 



CREATFD R> MACRO ON t V DEC 83 AT 09? *S* 



lilMBCX CROSS REFERENCE 
SYMBOL VALUE 



iMO 
SHIBTS 

SICNT 

IINTAG 

Sl'lG 

♦LPAOR 

JLPERR 



SMA0R1 

IMADR2 

IMA0R3 

IMA0R4 

**AIL 

IMAMS 1 

IMAMS2 

IMAMS 3 

IMAMS4 

tMBAOR 

IMFLG 

tMNEH 

IMSGAO 

IMSGLG 

tMSGTt 

IMSWR 

IMTYP1 

IMT>P2 

IMTYP3 

IMTtP4 

IMXCNT 

INULL 

$NUTST 



000003 
001000 
00U04 
016606 
001135 
001114 
001166 
014373 
001106 
001110 



001222 
001226 
001232 
001236 
001170 
001220 
001224 
001230 
001234 

001002 
014372 
016431 
001204 
001206 
OC1170 
016420 
001221 
001225 
001231 
001235 
015654 
001154 
000001 



IOCNT 


014620 


tOMOOF. 


014622 


IOVER 


015640 


*PA5S 


001176 



Hfrt'ERt.NCES 

6-414 
•9-4 72 

♦ 10-473 



17 

♦ 10 

♦ 10 

♦ 10 

♦ 17 

♦ 10 

♦ 10 
♦13 

♦ 13 

♦ 10 

♦ 10 



2iei 

-473 
473 
-473 
2166 
•473 
473 
1108 
-1070 
-473 
•473 



♦10-473 
♦10-473 

9-472 
♦10-473 
♦10-473 

♦ 10-473 
♦10-473 
♦9-472 

♦ 17-2166 
17-2160 

♦10-473 
♦10-473 
♦10-473 

17-2160 
♦10-473 
♦10-473 
♦10-473 

♦ 10-473 
2179 
473 

•602 
676 



17 

♦ 10 

♦ 12 

♦ 12 



♦12-763 
♦12-633 
♦13-909 
♦13-1051 
♦13-1186 
♦13-1318 
♦13-1587 
♦13-1464 
♦13-1535 
♦13-1626 
♦13-1794 
♦13-1962 
♦17-2167 
♦17-2167 
17-2179 
•10-473 



8 414 

♦17-2179 

17-2161 

17-2180 

♦17-2169 

17-2165 

♦17-2166 

♦12-544 

♦ 12 544 

♦13-1321 

♦13-1929 



9-472 



17-2166 
♦17-2180 
♦17-2166 
♦17-2166 
♦12-546 
♦17-2180 



17-2179 
17 2165 
12-602 
12-676 
12-763 
12-633 
13-909 
13-1051 
13-1166 
13-1316 
13-1387 
13-1464 
13-1535 
13-1626 
13-1794 
13-1962 
♦17-2167 
♦17-2167 
17-2179 
+12-544 



8 414 

17 2179 
017 2181 
17 2180 
17-2169 
17 .'165 

*17-2WO 
♦12 797 
♦13-1346 
17-2169 



010-473 



♦17-2166 
17-2166 
17-2166 



17-2179 
17-2165 
♦12-602 
♦12-676 
♦12-763 
♦12-633 
♦13-909 
♦13-1051 
♦13-1166 
♦13-1310 
♦13 1387 
♦13-1464 
♦13-1535 
♦13-1626 
♦13-1794 
♦13-1962 
417-2167 
17-2167 
17-2179 
♦14-2030 
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CRf.f V01 



♦ 17 2W9 



17 
17 
17 



2180 

2169 
2169 



♦17-2179 
•12 616 
♦13-1410 
17-2179 



12-544 



♦17-2166 



♦17-2166 



♦17-2179 
17-2165 

♦12-618 
697 
794 
853 
944 

♦13-1105 

♦13-1230 



♦ 12 

♦ 12 

♦ 12 

♦ 13 



♦ 13 

♦ 13 

♦ 13 

♦ 13 



1343 
1407 
1485 
1564 



♦13-1672 
♦13-1664 
♦13-1964 

♦17-2167 
17-2179 

♦14 -£020 



17 .'179 



17-21?/* 
17 2169 

17-2179 
♦12 836 
♦13-1439 

♦17-2179 



17-2165 



12-616 
12-697 
12-794 

12 853 
13-944 
13-1105 
13-1230 
13-1543 

13 1407 
13 1465 
13-1564 
13-1672 
13-1664 
13 1964 

♦17-2167 

•17 2179 

14-2020 



1' -?K9 



W-217R 
17 2180 

W 2179 
♦12-856 

♦13-1509 
17-2179 



17-2169 



17-2166 ♦17-2166 



♦12-616 

•12-697 

♦12-794 

♦12-653 

♦13-944 

♦13-1105 

♦13-1250 

♦13-1543 

♦13-1407 

♦13-1485 

♦13-1564 

♦13-1672 

♦13-1664 

♦13-1964 

♦17-216 7 

14-2020 



21 BO 

2179 
94 7 
1538 
17-2179 



17 

♦ 13 

♦ 13 



17-2179 



•12-655 
♦12-728 
♦12-813 



♦ 13 

♦ 13 

♦ 13 

♦ 13 

♦ 13 

♦ 13 

♦ 13 

♦ 13 
♦13 

♦ 13 



874 
999 

1156 
1274 
1368 
1436 
1506 
1591 
1733 
1926 



17-2180 



♦ 15 100* 
♦13-1594 



12-655 

12- 728 

12-813 

13-874 

15-999 

13-1156 

15-1274 

13-1368 

13-1436 

13-1506 

13-1591 

13-1733 

13-1926 



r *FCi 00 79 



• 13- 1U C >4 
♦13-1739 



♦12-655 

♦ 12- 728 



♦ 12 

♦ 13 

♦ 13 

♦ 13 



813 
874 
999 
1156 



♦13-1274 
♦13-1368 
♦ 13-1436 



• 13 

♦ 13 

♦ 13 

• 13 



1506 
1591 
1733 
1926 



14-2020 



17.2179 1?-2179 
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CROSS REFERENCE 








CREF V01 












SYMBOL 


VALUE 


REFERENCES 
17 2179 


















*PASTM 


001006 


09-472 


















$PWRAD 


016602 


#17-2161 


















tPWRDN 


016442 


12-544 


017-2181 


17 2181 














$DWRfiG 


016576 


#17-2181 


















SF WRUP 


016514 


17-2181 


017-2181 
















*oues 


001164 


#10-473 


17-2165 


17-2165 


17-2169 


17-^169 


17-2180 


W 2180 


17-2180 


1 ; -2180 


tRDCHR 


016140 


#17-2180 


17-2184 


17-2184 














SRDOEC 


X ****** 


17-2184 


















5RDLIN 


016270 


#17-2180 


17-2184 


17-2184 














SRDOCT 


■ ****** 


17-2184 


















IRDSZ 


* 000010 


#17-2180 


17-2180 
















SRTNAD 


013K2 


#14-2020 


















$R2A 


« ****** 


17-2184 


















JSAVRE 


« ♦♦*•*♦ 


17-2184 


















i5AVR6 


016612 


*17-2181 


17-2181 


♦17-2181 


♦17-2181 


017-2181 










*SCOPE 


015376 


12 544 


017-2179 
















JSETUP 


- 000117 


#12-542 


12-542 


#12-542 


12-542 


*i2-542 


12-542 


#12-542 


12 54 <> 


#12 54? 






12-542 


#12-542 


12-544 


12 544 


12-544 


12-544 


12-544 


12-544 


12-544 






12-544 


12-544 


12-544 


12-544 


12 544 


14-2020 


14-2020 


17-2169 


17 2169 






17-2169 


17-2169 


17-2179 


17-2180 


17-2180 










$STUP 


« 177777 


#12-542 


#12-542 


12-542 


012-542 


012-542 


12-542 


#12-542 


#12-542 


12-542 






#12-542 


#12-542 


12-542 


#12-542 


#12-542 


12-542 








ISVL.AO 


015604 


17-2179 


017-2179 
















$SVPC 


• 017350 


#9-467 


9-467 


#1.8-2229 


19-2283 












$5WR 


* 165400 


8-414 


08414 


#8-420 


8-422 


8-422 


8-422 


8-422 


8-422 


fl 422 






8-422 


8-422 


10-473 


10-473 


10-473 


12 544 


12^544 


12-544 


12-544 






12-602 


12-618 


12-655 


12-676 


12-697 


12-728 


12 763 


12-794 


12-813 






12-833 


12-853 


13-874 


13-909 


13-944 


13 999 


13-1051 


13-1105 


13-1156 






13-1186 


13-1230 


13-1274 


13-1318 


13-1343 


13 1368 


13-1387 


13 1407 


13-1436 






13-1464 


13-1485 


13-1506 


13-1535 


13-1564 


13-1591 


13-1626 


13-1672 


13-1735 






13-1794 


13-1864 


13-1926 


13-1962 


13-1984 


14-20^0 


14-2020 


14-2020 


14-2020 






14-2020 


17-2169 


17-2169 


17-2169 


17-2169 


17-2169 


17-2169 


17-2169 


17 2169 






17-2169 


17-2169 


17-2169 


17-2179 


17-2179 


17-2179 


17-2179 


17-2179 


17-2179 






17-2179 


17-2179 


17-2179 


17-2179 


17-2179 


17-2179 


17-2179 


17.2179 


17-2179 






17-2179 


17-2179 


17-2179 


17-2179 


17-2179 


17-2181 








SSWREG 


001212 


#10-473 


12-544 
















ISURMK 


« 000000 


8-422 


8-422 


8-422 


8-422 


8-422 


8-422 


8-422 


8-422 


U-422 






17-2179 


17-2179 


17-2179 


17-2179 


17-2179 


17-2179 


17-2179 


17-2179 


17-2179 






17-2179 


















iTESTN 


001174 


♦10-473 


♦ 12-547 


•17 2179 














*TIMF.S 


001160 


#10-473 
17-2179 


♦12-544 


♦13-1962 


♦13-1984 


♦14-2020 


♦17-2179 


17-2179 


♦ 1.7-2179 


17 2179 


$TKB 


001146 


#10-473 
17-2180 


17-2165 

17-2180 


17-2165 


17-2165 


17-2165 


17 2180 


17-2180 


17-2180 


17 2180 


*TKS 


001144 


#10-473 
17-2180 


17-2165 
17-2180 


17-2165 

17-2180 


17-2165 


17-2165 


17-2180 


17-2180 


17-2180 


17-2180 


STN 


» 000052 


8-414 


#8-414 


#8-421 


12-602 


12-602 


#12-602 


12 618 


12-618 


012 618 






12-652 


12-655 


12-655 


#12-655 


12-673 


12-676 


12-676 


#12-676 


12-693 






12-697 


12-69^ 


#12-697 


12-725 


12-728 


12-728 


012-728 


12 760 


12-763 






12-763 


012-763 


i2-791 


12-7*; 


12-794 


01? 794 


12-815 


12-813 


012-813 






12-333 


12^833 


#12-633 


12-853 


12-853 


012-853 


13-874 


13-374 


013-874 



>?ij 0080 



IV 
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CRE'ATH) tfi 



SYMBOL CROSS REFERENCE 
SYMBOL VALUE 



$TPB 


00115a 


STPFLG 


001157 


• TPS 


001150 


ITRAP 


016646 


*TRAP2 


016670 


JTRP 


« 000012 



STRPAO 

iTSTM 

ITSTNH 

♦TTYIN 

tTYPSN 
iTYPOS 

*t^e 

ITYPF.C 

ITYPEX 

ITYPOC 

ITYPON 

$ TYPOS 

IUNIT 

JUNITM 

$USUR 

IVCCTl 

*VECT2 

ixoff 
$xon 

iXTSTR 
MGET4 

I0TILL 
*40CAT 
.iASTA 
.$X 



016702 
0010O4 
001102 

016376 

* ****** 

014624 
013574 
014006 
014126 
014422 
014436 
014376 
001202 
001010 
001214 
001240 
001242 

- 0OO023 

- 000021 
015410 

- oooooo 

014621 

M ****** 
* ****** 

* OOIOOO 
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REFERENCES 


































13 


-906 


IS- 


909 


13 


-909 


♦IS- 


909 


13 


-940 


13- 


■944 


13 


'^44 


♦ 13 


944 


13 


999 


13 


999 


♦ 13 


-999 


13- 


1051 


IS 


-1051 


013 


1051 


13 


1105 


13 


-1105 


♦ 13 


•1105 


13 


1156 


13 


1156 


♦ 13 


1156 


1? 


1181 


13 


1186 


13 


1186 


♦ 13 


1186 


13- 


•1225 


13 


•1230 


13 


1250 


#13 


•1230 


13- 


1269 


13 


-1274 


13- 


■1274 


♦13 


-1274 


13- 


•1312 


IV 


-1318 


13- 


•1318 


♦ 13 


1318 


13 


-1338 


13- 


1343 


13 


1343 


♦13 


1343 


13 


1363 


13 


1368 


15- 


1368 


♦ 13 


1368 


13 


-1382 


13 


■1387 


13- 


-1387 


♦13- 


■1387 


IS- 


1402 


13 


1407 


13 


■1407 


♦13 


-1407 


13 


1430 


13 


-14 36 


13 


1436 


♦ 13- 


■1436 


13 


■1459 


IS 


•1464 


13 


-1464 


♦ 13 


•1464 


13 


1479 


13 


•1485 


IS- 


•1485 


♦ 13 


-1485 


13 


-1501 


13 


-1506 


13 


-1506 


♦ 13 


-1506 


13 


1530 


13 


-1535 


13 


•1535 


013 


•1535 


13 


-1559 


13 


•1564 


13- 


•1564 


♦ 13 


-1564 


13 


-1566 


13 


•1591 


13 


1591 


♦ 13 


1591 


13 


•1621 


13 


1626 


13 


1626 


♦ 13 


1626 


13 


-1663 


13 


-1672 


13 


-167;? 


♦ 13 


1672 


13 


-1727 


13 


-1/33 


13 


-1733 


♦13- 


•1733 


13- 


-1794 


IS- 


•1794 


♦ 13 


1794 


IS- 


■1856 


13- 


1864 


13- 


1864 


♦ 13- 


-1564 


13 


1926 


13 


•1926 


♦ 13 


•1926 


IS 


-1962 


13- 


•1962 


♦ 13- 


•1962 


13- 


•1980 


13- 


1984 


13 


-1984 


♦ 13 


1984 


































♦10- 


-473 


17- 


•2165 


17 


-2165 


17 


2165 






















♦ 10 


-473 


17 


-2165 


17- 


-2165 


17- 


-2165 






















♦10 


-473 


17 


2165 


17 


2165 


17 


•2165 






















12- 


544 


♦17 


-2184 






























#17 


-2184 


17 


-2184 






























♦17 


•2164 


17 


-2184 


17 


-2184 


17 


-2184 


17 


-2184 


♦17- 


•2184 


17- 


2184 


17 


2184 


17 


2184 


17- 


2184 


♦17 


2184 


17 


2184 


17 


2184 


17 


2184 


17 


•C'lM 


♦ 17- 


•2184 


17- 


2184 


17- 


2184 


17 


-2184 


17 


-2184 


♦ 17 


2184 


17 


-2184 


1/ 


-2184 


1 ' 


2* 84 


17- 


2184 


♦ 17 


2184 


17 


2184 


17 


•2184 


17 


2184 


17 


2184 


♦17- 


•2184 


17 


2184 


17- 


2184 


17- 


-2184 


17- 


-2184 


017- 


-2184 


17 


2184 


17 


•2184 


17- 


•2184 


17 


2184 


♦ 17 


-2184 


17 


-2184 


17- 


•2184 


17- 


■2184 


17- 


•2184 


♦17 


-2184 


































17 


-2184 


♦17 


-2184 






























♦9-472 


































♦ 10 


-473 


♦ 14 


-2020 


17 


-2169 


17 


2169 


17 


•2169 


17- 


•2174 


17- 


•2179 


17- 


•2179 


♦17 


•2179 


17 


-2179 


17 


2179 


17 


-2179 


17- 


2179 






















17 


-2180 


17 


-2180 


17 


-2180 


♦ 17 


-2180 






















17 


-2184 


































♦17 


-2168 


17 


-2184 


17 


2184 


























♦17 


-2165 


17 


-2166 


17 


-2184 


17- 


-2184 






















17 


2165 


17 


2165 


17 


-2165 


♦ 17 


•2165 


17 


•2180 


















17 


-2165 


17 


-2165 


♦ 17 


-2165 


























♦ 17 


-2167 


17 


-2184 


17 


-2184 


























17 


-2167 


♦ 17 


-2167 


17 


2184 


























♦17 


-2167 


17 


-2184 






























♦ 10 


-473 


♦ 12- 


-582 


12- 


-597 


♦ 14 


•?016 






















♦9-472 


































♦10 


-473 


































♦ 10 


-473 


































♦10 


-473 


































17 


-2165 


17 


-2165 






























17 


-2165 


17 


-2165 


17 


-2180 


























♦ 17 


-2179 


































♦ 14 


-2020 


14 


-2020 






























♦ 17 


-2167 


♦ 17 


-2167 


17 


■2167 


♦17 


-2167 






















17 


2169 


17 


-2179 






























17 


-2166 


17 


•2166 






























♦9-472 


9-472 
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MACRO CROSS REFERENCE 



MACRO NAME 

COMMEN 

ENOCOM 

ESCAPL 

GETPRI 

GETSWR 

MU.T 

NEWTST 



POP 

PUSH 

REPORT 

SETPRI 

SETTRA 

SETUP 

SKIP 



SLASH 
STARS 



CREF V01 



SEU 0G82 



SWRSU 

TRMTRP 

TYPBIN 

1 YPDEC 

TYPNAM 

TYPNUM 

Trpocs 

TYPOCT 
TYPTXT 
IICMRE 
MCMTM 
JIESCA 
tINEUT 



USFT 
**SETM 



REFERENCES 


























#8-425 


























#8-423 


























#8-423 


























#8-423 


























#8-423 


























#8-423 


























#8-423 


12-602 


12-618 


12-655 


12-676 


12-697 


12-728 


12 


763 


12 


• 794 


12 


-813 


12-833 


12-853 


13-874 


13-909 


13-944 


13-999 


13-1051 


13 


-1105 


13- 


-1156 


13 


-1186 


13-1?30 


13-1274 


13-1318 


13-1343 


13-1368 


13-1387 


13-1407 


13 


1436 


13 


-1464 


15- 


-1485 


13-1506 


13-1535 


13-1564 


13-1591 


13-1626 


13-1672 


13-1733 


13 


•1794 


13- 


-1864 


13. 


1926 


13-1962 


13-1984 
























#8-423 


17-2166 


17-2166 


17-2168 


17-2181 


17-2161 
















#8-423 


17-2166 


17-2166 


17-2166 


17-2168 


17-2181 


17-2181 














#8-423 


























#8-423 


























#17-2184 


17-2184 


17-2184 


17-2184 


17-2184 


17-2184 


17-2184 


17- 


2184 


17- 


-2184 


17- 


2134 


#8-423 


12-544 
























#8-423 


12-645 


12-652 


12-673 


12-693 


12-719 


12-725 


12 


-753 


12 


760 


12 


785 


12-791 


13-906 


13-940 


13-1181 


13-1225 


13-1269 


13 1312 


13- 


-1338 


13- 


•1363 


13 


1382 


13-1402 


13-1430 


13-1459 


13-1479 


13-1501 


13-1530 


13-1559 


13- 


■1586 


13 


•1621 


13- 


-1663 


13-1727 


13-1856 


13-1980 






















#8-423 


























#8-423 


9-467 


9-472 


9-472 


9-472 


10-473 


10-473 


10 


473 


12 


602 


12 


602 


12-618 


12-618 


12-655 


12-655 


12-676 


12-676 


12-697 


12 


-697 


12 


-728 


12 


-728 


12-763 


12-763 


12-794 


12-794 


12-813 


12-813 


12-833 


12 


-833 


12 


853 


12 


8S3 


13-874 


13-874 


13-909 


13-909 


13-944 


13-944 


13-999 


13 


999 


13 


-1051 


13- 


-1051 


13-1105 


13-1105 


13-1156 


13-1156 


13-1186 


13-1186 


13-1230 


13- 


-1230 


13- 


-1274 


13 


•1274 


13-1318 


13-1318 


13-1343 


13-1343 


13-1368 


13-1368 


13 1387 


13 


-1387 


13 


-1407 


13 


-1407 


13-1436 


13-1436 


13-1464 


13-U54 


13-1485 


13-1485 


13 1506 


13 


-1506 


13 


-1535 


13- 


-1535 


13 1564 


13-1564 


13-1591 


13-1591 


13-1626 


13-1626 


13-1672 


13 


-1672 


13- 


-1733 


13 


-1733 


13-1794 


13-1794 


13-1864 


13-1864 


13-1926 


13-1926 


13-1962 


13 


1962 


13 


1984 


13- 


1984 


14-2020 


15-2025 


15-2029 


17-2165 


17 2166 


172167 


17-2168 


17- 


-2169 


17- 


-2170 


17- 


-2173 


17-2178 


17-2179 


17-2180 


17-2180 


17-2180 


17-2180 


17 2181 


17- 


-2181 


17- 


-2184 






#8-423 


#12-544 


12-544 






















#17-2184 


























#8-423 


























#8-423 


14-2020 
























#8-423 


























#6-423 


























#8-408 


#8-423 
























#8 423 


17-2178 


17-2178 


17-2180 




















#8-423 


























#9-473 


























#9 473 


























*8-423 


























#8-423 


12-602 


12-618 


12-655 


12-676 


12-697 


12-728 


12 


-763 


12 


-794 


12 


-813 


12-833 


12-Q5S 


13-874 


13-909 


13-944 


13-999 


13-1051 


13 


-1105 


13 


1156 


13 


-1186 


13-1230 


13-1274 


13-1318 


13-1343 


13-1368 


13-1387 


13-1407 


13 


1436 


13 


•146* 


13 


■1485 


13-1506 


13-1535 


13-1564 


13-1591 


13-1626 


13-1672 


13-1733 


13 


-1794 


13 


186^ 


13 


•1926 


13-1962 


13-1984 
























#17-2184 


17-2184 


17-2184 


17^2184 


17-2184 


17-2184 


17-2184 


17- 


-2184 


17. 


-2184 


17- 


•2164 


#12-544 


12-544 
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MACRO CROSS REFERENCE- 
MACRO NAME REFERENCES 



$$SKIP 



.EQUAT 

.HEAOE 

.SETUP 

.SWRHI 

.SWRLO 

.*ACT1 

.5APTB 

.$APTH 

.$APTY 

,*CATC 

,*CMTA 

.$EOP 

.$ERRO 

. $ERRT 

♦ *POUE 

,*RDOC 

•$READ 

♦*SC0P 

.STRAP 

.ITYPD 

.*type 

.HYPO 



08-423 
13-1225 
13-1501 
08-408 
08-407 
08-40? 
08-408 
08-422 
08-410 
08-410 
08-410 
08-410 
08-408 
08-408 
08-409 
08-409 
08-409 
08-408 
08-407 
08-409 
08-409 
08-407 
08-409 
08-409 
08-408 



12-652 

13-1269 

13-1530 

8-423 

8-414 

12-542 
8-422 

9-467 
010-473 
9-472 
17-2166 
8-462 
9-473 
14-2020 
17-2169 
17-2178 
17-2181 

17-2180 
17-2179 
17-2184 
17-2168 
17-2165 
17-2167 



CREF V01 



SEQ 0083 



12-673 
13 1312 
13*1559 



12-693 
13 1338 
13-1586 



12-725 

13-1363 
13-1621 



12-760 

13-1382 

13-1663 



12-791 

13-1402 

13-1727 



13-906 

13-1430 

13-1856 



H-940 
13 1459 
13-1980 



13-1181 
13-1479 



10-473 



CVURCC DRV11J D1AU 



HI 
CI 
!H 
\ I 
f'l 
Ul 
HI 
II 
,J1 
.Kl 
LI 
Ml 
Nl 



.ilb 
.Lb 
.Db 
.Kb 
.IS 
.U5 
.Hb 
.lb 
.Jb 
.Kb 
.Lb 
.Mb 
.N5 



B2 
C? 

.*.;? 

,H? 

,J2 
,K^ 
L2 
Mc> 
,N? 



.Bb 
.C6 
.06 
.L6 
.Kfe 
.G6 
.H6 
.16 
.J6 
.K6 
.1.6 
.M#i 
,N6 



B3 

C3 
D3 
L3 
F3 
US 
H3 
13 
J3 
K3 
L3 
M3 
N3 



.87 
C/ 
.07 
.F.7 
,F7 



B4 
C4 
04 
t4 
F4 
G4 
H4 
14 
J4 
K4 
1.4 
h4 
,N4 



